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La mujer del César no sólo ha de ser 
honesta, sino parecería. Este acertó 
romano bien puede aplicarse a la 
norma MSX. Y no tanto a la potencia 
de su sistema, a las innegables venta- 
jas de su compatibilidad, a las nume- 
rosas posibilidades futuras, sino a su 
fortaleza en el mercado. Queremos 
decir que su fortaleza no puede limi- 
tarse a las máquinas, sino hacerse 
extensiva a su presencia en el merca- 
do y no rebajarse a competir con má- 
quinas que tecnológicamente no le 
llegan al más diminuto de sus chips. 

En estos momentos MSX mantiene 
una seria y dura batalla con aparatos 
incompatibles aún entre sí y que ade- 
más, como un reflejo de la poca serie- 
dad comercial de cara a los usuarios 
dejarán de venderse con la marca que 
llevaban hasta ahora (Amstrad) para 
venderse con otra marca (8inclair) 
aprovechando el prestigio que ésta 
obtuviera antes de su crack económi- 
co. Junto a esto se halla la prepoten- 
cia publicitaria y precios verdadera- 
mente atrayentes que recuerdan a 
los antiguos vendedores en el metro 
que ofrecían por cinco duros un bolí- 
grafo, cuatro libretas y de regalo una 
pluma estilográfica. 

Ante tal política los fabricantes de 
MSX sólo oponen sus aparatos, lo 
cual sería muy positivo si reinara la 
claridad, pero no es precisamente 
claridad lo que hay en el mundo de la 
microinformática de consumo. En 
este sentido es absolutamente nece- 
sario que los fabricantes implicados 
en el sistema MSX tomen una actitud 
más decidida no sólo a nivel publici- 
tario, sino también informativo para 
que sus aparatos, cuya calidad y ren- 
dimiento ya conocen miles de usua- 
rios, disputen la batalla del mercado 
en mejores condiciones, que además 
de ser los mejores en su segmento, 
también lo parezcan. En la lucha por 
la primacía del mercado, la realidad 
manda y los fabricantes de MSX han 
de ser realistas. 
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Input 



QUINIELAS 



OH STOP GOSUB 

Tengo un CANON V-20 y 
quiero saber: 

¿Dónde empieza un progra- 
ma y dónde acaba? 

¿Cómo se puede anular la 
sentencia ON STOP GOSUB? 

También quisiera que publi- 
carais los pokes que sirven 
para vidas infinitas, como se 
hace en las revistas de otros 
ordenadores, así como algo so- 
bre lenguaje FORTH. 

Luis Valero Moreno 
Andorra la Vella 
C Principado da Andorra) 

—Loa programas empiezan 
en la dirección 32768 y acaban 
en la posición que indica la va- 
riable del alaterna TXTTAB, 
que se encuentra en &KF676- 
7. Para obtener el final debes 
hacer: 

PRINT PEEK (6fHF676) + 
250.PEEK (#HF677) 

Naturalmente todo esto se 
refiere a un programa BASIC, 
puesto que los que están gra- 
bados en forma de bytes se 
pueden ubicar en cualquier po- 
sición. 

-El efecto de ON STOP QO 
SUB se anula pulsando simul- 
táneamente las teclas SHIFT, 
CTRL, GRAPHy CODE. Lo que 
sucede es que frecuéntese aña- 
de otro sistema de protección, 
por lo que este truco puede no 
funcionar. 

-Hemos recibido muchas 
cartas pidiendo POKES para 
Juegoa. En principio, no hemos 
querido hacer algo que pudiera 
fomentar la copla Ilegal de 
programas. No obstante, com- 
prendemos que muchas veces 
resulte molesto adquirir un 
juego y comprobar que es 
prácticamente imposible ir 
pasando de pantalla. Por tan- 
to, a partir de añora iremos in- 
cluyendo algunos trucos que 
permitan Jugar mejor, ponlen - 
do el máximo cuidado para no 
lesionar los legítimos intere- 
ses de los fabricantes. Desde 
aquí os animamos a compartir 
con todos los lectores los PO- 
KES que descubráis. 

En lo que no podemos com- 
placerte, al menos en un futu- 
ro próximo, es en tu interés 
por el FORTH, porque deben 
ser muy pocos los usuarios 
que disponen de un compila- 
dor de este lenguaje. Tal vez 
más adelante tratemos un 
poco el PASCAL. 







Cómo pasar una impresora 
matricial MSX de 80 columnas 
a 40. 

Si es posible sacar los gráfi- 
cos de mayor tamaño. 

Cómo hacéis para volcar las 
pantallas de presentación de 
como la que publicas- 
en vuestro número 18: 



Gabriel Mlr Fieras 
Inca C Baleares) 

—Suele haber tres formas de 
con trolar la anchura de los lis- 
tados: tabular con los inte- 
rruptores (si la impresora en 
cuestión dispone de ellos), 
mandar los comandos oportu- 
nos de regulación del ancho, o 
intercalar un programa que se 
encargue de provocar un re- 

lumna deseada. Para emplear 
los dos primeros métodos de- 
berás consultar el manual de 
la Impresora. El tercero pue- 
des obtenerlo a partir de un 
programa publicado en el nú- 
mero 19-20 del mes de Junio, 
en la sección «TRUCOS DEL 
PROGRAMADOR». 

-Algunas impresoras perm- 
míten representar el mismo 
gráfico en distintos tamaños 
(las EPSON o compatibles, por 
ejemplo). SI tu impresora no 
tiene esta capacidad, deberás 
hacerlo «a mano», constru- 
yendo un programa para el fin. 
En síntesis, se trate de orde- 
nar una impresión gráfica de 
un número doble de puntos, 
duplicar los cuatro primeros 
bits de datos y mandarlos, 
para repetir la operación con 
los cuatro últimos bits. Así 
conseguirás un dibujo cuatro 
veces mayor que el original. 

—La única forma de copiar 
pantallas de los Juegos comer- 
ciales es de protegerlos. A con- 
tinuación, suele ser aconseja- 
ble guardar el contenido de la 
pantalla en una cinta, borrar 
el Juego, cargar el programa 
copiador y volver a poner la 
pantalla en su sitio. 



FUERA CURSOR 

Me gustaría saber cómo qui- 
tar el cursor, es decir, cómo 
hacerlo Invisible en la panta- 
lla, sin que por ello dejen de ob- 
tenerse caracteres cuando 
pulsemos la correspondiente 
tecla. Estoy siempre pendiente 
de la sección «Trucos del pro- 
gramador», pero todavía no he 
visto nada de esto. 

Feo. Fernández Rlvero 



que poner un parche en la ruti- 
na del BIOS encargada de mos- 
trar el cursor en la pantalla 
para conseguirlo. La referida 
rutina empieza su actuación 
llamando al gancho situado en 
la posición &HFDA9. Sí desa- 
püas la dirección de retorno 
harás que la ejecución del pro- 
grama vuelva al lugar de lla- 
mada sin haber hecho nada. Lo 
normal es incrementar dos ve- 
ces la pila (INC SP), pero en 
este caso también vale un vul- 
gar POP AF. Para poner el par- 
che desde el BASIC basta con 
hacer: 

POKE (&HFDA9), &HF1 



PELIGROS A EVITAR 

He oído decir que no se debe 
insertar un cartucho estando 
el ordenador encendido. Yo lo 
hice y no ocurrió nada. ¿Puede 
es un 



He leído vuestros artículos 
sobre el volcado de pantalla en 
los números 16 y 18 y me que- 
dan algunas dudas: 



No sé si te va a servir de mu- 
cho deshacerte del cursor. De 
cualquier forma, sólo tienes 



Ernesto Calle Giménez 
Plasencia (Cacares) 

Soy un lector de vuestra re- 
vista y tengo un grave proble- 
ma. Hace poco puse un cartu- 
cho con el ordenador encendi- 
do y desde entonces se me que- 
da la tele en color negro y no 
funciona. Espero que vosotros 
me digáis algo para solucionar 
este problema. 

Juan Carlos Fariña Peña 
Sta. Cruz de Tenerife 

Conectar o desconectar peri- 
féricos con el ordenador en- 
cendido es algo que no debería 
hacerse. En la práctica, todos 
nos saltamos esta regla y sole- 
mos acabar con un soldador en 
la mano o en el servicio técni- 
co. 

Lo más peligroso es Insertar 
un cartucho, porque sí dos pis- 
tas se cruzan el desastre suele 
ser Inevitable. Hay que tener 
presente que en algunas de las 
patillas de la salida del cartu- 
cho existen tensiones de 
+ -12V. La CPUyel VDP traba- 
Jan con SVy al inyectar en al- 
guno de sus buses un votaje 
mayor es muy fácil que se dete- 
rioren. 

Por otra parte, los controla- 
dores de disco, que también se 
alojan en la ranura del cartu- 



cno, pueden dañarse, mciuso, 
con el solo hecho de tener al- 
gún contacto en falso, al no ha- 
ber presionado lo suficiente al 
introducirlo. 



RGBYCP/M 

Quisiéramos plantear una 
serie de dudas: 

-¿Para qué sirve la salida 
RGB y cómo se utiliza? 

—¿Qué es el sistema operati- 
vo CP/M? 

-¿Qué son los discos forma- 
teados y sin formatear? 

Carlos y Daniel Tomas 
Barcelona 

Las siglas RQB correspon- 
den a las iniciales de los tres 
colores básicos: red, green y 
blue (rojo, verde y azul). Los 
televisores en color disponen 
de un cañón múltiple con un 
haz de electrones para cada 
uno de estos colores (acerca- 
ros a uno de ellos y podréis dls- 
tlguir un entramado de peque- 
ños puntos manchados con al- 
guno de estos colores). Pues 
bien, a grosso modo, los moni- 
tores RQB están preparados 
para recibir las señales del co- 
lor directamente en el cañón. 
Esto representa una mejora 
notable frente a los monitores 
de vídeo compuesto, ya que en 
aquéllos las señales del color/ 
brillo, sonido, posición, etc. es- 
tán mezcladas y necesitan de 
un demodulador para atacarla 
etapa final, llamada, precisa- 
mente, etapa de RQB. En con- 
trapartida, los monitores RQB 
resultan algo más caros. 

A título de resumen, y para 
que no incurráis en el error de 
comprar un monitor no com- 
patible con vuestra máquina, 
hay que tener presente que 
suelen encontrarse tres tipos 
de salidas: RF (Radio Frecuen- 
cia), que sólo es válida para un 
televisor común; VIDEO COM- 
PUESTO, que se distingue por 
llevar únicamente dos cables; 
y RQB, en el que el número de 
cables varía según los fabri- 
cantes, oscilando entre ocho y 
veinticuatro. 

—Un sistema operativo es 
algo que sirve precisamente 
para eso, para hacer operativo 
el ordenador. Sin la supervi- 
sión de uno de estos progra- 
mas el ordenador no sería ca- 
paz ni de leer el teclado, ni de 
imprimir en la pantalla, por 
citar sólo dos ejemplos claros. 
Pues bien, el CP/M es un S.O. 
más, eso sí, el más popular en 
los micros de 8 bits que tienen 
Incorporada, al menos, una 
unidad de disco. Sin embargo, 
los con troladores de disco de 
las unidades de los MSX no so- 
portan el CP/M (salvo los de 
SPECTRAVIDEO). El estándar 
tiene su propio sistema opera- 
tivo: el MSX-DOS. El motivo 
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por el que se descartó el CP/M 
es que resulta, casi Imprescin- 
dible tener un dlsplayde 80 co- 
lumnas para trabajar con él. 
Aunque, en contrapartida, el 
MSX-DOS es un S.O. que no tie- 
ne nada que envidiarle. De he- 
cho se trata de un híbrido que 
tiene una organización inter- 
na muy parecida al CP/M, pero 
que responde a los comandos 
del MS-DOS. Así, los que hayan 
trabajado con un D3M PC com- 



probarán que muchas órdenes 
son comprendidas por el MSX- 
DOS (en realidad el BASIC 
MSX también es muy parecido 
al del D3M PC). Por su parte, 
los virtuosos del CP/M podrán 
hacer milagros con el 
M0VCPL.COM. 

—Formatear un disco signlñ- 
ca ajustarlo a un formato con 
el que pueda trabajar el S.O. 
Imagina una gran hoja de pa- 
pel en una Imprenta conte- 



niendo un libro entero. Leerlo 
en ese formato resultaría im- 
posible. Así pues hay que cor- 
tarlo y encuadernarlo (forma- 
tearlo) añnde que sea fácil ac- 
ceder a cualquier Información 
contenida en él con sólo mirar 
primero en el índice (el direc- 
torio, en un disco). Natural- 
mente se pierde algo de papel 
en la manipulación. De igual 
manera, un disco pierde espa- 
cio cuando se formatea, por lo 



Output 



que es corriente que un ñoppy 
de 3,5 pulgadas de sim pie cara/ 
doble densidad, que original- 
mente dispone de 500K, quede 
reducido a 360K A decir ver- 
dad suelen perder unos 6K 
más, debido a que se reserva 
las primeras posiciones para 
contener el directorio e infor- 
maciones imprescindibles 
para el sistema. 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX 2.' Edición 

N." 1,2,3,4 -450 PTAS. 



MSX 2." Edición 

N." 5,6,7,8 -475 PTAS. 



MSX9 150 PTAS. 



MSX10 300 PTAS. 




MSX14 160 PTAS. 



MSX15 175 PTAS. 



MSX16175 PTAS. 



MSX17175 PTAS. 



MSX11 150 PTAS. 
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MSX18 175 PTAS. 



MSX12.13 300 PTAS. 




MSX19.20 350 PTAS 




MSX21 175 PTAS. 



MSX CODIGO 
MAQUINA - 275 PTAS. 



MSX22 175 PTAS. 
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MSX ESPECIAL 
SOFWARE - 275 PTAS. 




¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 
-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 

! 

I Deseo recibir los números de SUPERJUEGOS EXTRA MSX 



para lo cual adjunto talón 
Nombre y apellidos 



a la orden de Manhattan Transfer, S A. 



Tel.: 



i Població 



DP Prov. 



• No se admita contrarre embolso- 



— — 



SONY HB-F700S 



Un MSX Z a tu alcance 



Una de las cosas que más sorprenden al tener un HB-F700S de Sony, aparato de la segunda generación de 
MSX es su prestancia profesional y al usarlo su tremenda capacidad gráfica. 



Como ya va siendo habitual en los 
aparatos de la segunda genera- 
ción que están apareciendo, 
este ordenador viene suministrado en 
dos módulos: 

La unidad central (donde están ubica- 
dos la circuitería y las conexiones y el te- 
clado). Este último se conecta a la uni- 
dad central mediante un cable suminis- 
trado con el equipo, poseyendo un total 
de 90 teclas incluyendo 12 de control, 5 
de función (10 con SHIFT) 8 de edición y 
cuatro cursores. El tacto de las teclas es 
absolutamente fiable, constituyendo la 
novedad la inclusión de un teclado nu- 
mérico independiente situado a la dere- 
cha y que facilita enormemente el tecleo 
de datos numéricos. Los cuatro curso- 
res están colocados sobre este teclado 
numérico poseyendo todo el conjunto 
un armónico diseño. Las dos patas tra- 
seras permiten regular la inclinación del 
teclado hasta la posición más cómoda 
para el operador. 



UNIDAD ffiBB BÜ U í 



El meollo del aparato reside en la uni- 
dad central, también blanca y de agra- 
dable diseño, donde como hemos dicho 
anteriormente reside la Unidad Central 
de Proceso, la unidad de disco incorpo- 
rada y todas las conexiones y entradas/ 
salidas. 

En la parte frontal, y de izquierda a de- 
recha encontramos lo siguiente en la 
unidad central: 

- Interruptor principal ON/STAND BY 
con un LED indicador del estado de 
operación. 

- Ranuras 1 y 2 de cartucho. 

- Ranura de la unidad de disco. 

- Tecla de expulsión del diskette y LED 
indicador. 

Bajo la segunda ranura de cartucho 
se encuentra el interruptor RESET, e in- 
mediatamente a su izquierda se en- 
cuentran los dos ports de los joysticks, e 
inmediatamente a su derecha el conec- 
tor del teclado. 

En la parte posterior de esta unidad 
central encontramos, también de iz- 
quierda a derecha las siguientes cone- 
xiones: 

- En primer lugar, el conector para una 
unidad de disco externo. 

- El conector para un magnetófono a 
cassette. 

- El conector Audio/Video (DIN de 6 
terminales). 

- El conector RGB (DIN de 8 termina- 
les). 

Debajo de estas conexiones, y co- 
menzando por la izquierda, nos encon- 



tramos en primer lugar con la tercera ra- 
nura de cartucho (pensada principal- 
mente para la ubicación de un cartucho 
de interface RS-232C); el conector para 
la impresora y una toma de tierra. 

UNIDAD DE DISCO 

Merece la pena destacar que la uni- 
dad de disco suministrada con el equipo 



HB F700S está preparada para trabajar 
con diskettes de doble cara/doble densi- 
dad de 1 Mb (720 Kb formateado) de 
3,5". Esto constituye una novedad, 
puesto que hasta el lanzamiento de este 
modelo las unidades de diskette que fa- 
bricaba SONY tan sólo tenían una capa- 
cidad de 500 Kb (360 Kb formateado) 
trabajando con diskettes de simple cara/ 
doble densidad. 
Al trabajar con una unidad de disco 




iear panel 



TAPE RECORDER connector (8-pin DIN) 

AUDIO/VIDEO 

output connector (6-pin DIN) 

RGB connector (8-pin DIN) 




Ground terminal 
PRINTER connector (14-pin) 
EXTENSION DRIVE connector (34-pin) 



que duplica la capacidad de las anterio- 
res, la hace especialmente indicada 
para aplicaciones profesionales donde 
se requiere una gran capacidad de al- 
macenamiento externo y un ágil manejo 
de los datos. 

Si añadimos a esto la inclusión de un 
diskette con el sistema operativo MSX 
DOS además del MSX Disk Basic resi- 
dente en el aparato, nos daremos cuen- 
ta que la gestión de la información alma- 
cenada en los discos es infinitamente 
versátil y rápida. 



Hagamos un poco de hincapié en las 
características que diferencian a esta 
segunda generación de MSX de la pre- 
cedente: 

Entre las nuevas características que 
incorpora, quizá las más significativas 
son: 

La RAM principal de este equipo es de 
256Kb y la VRAM de 128Kb, lo que nos 
proporciona un total de nueve modos de 
pantalla (Screen 0 a 8). De estas nueve 
SCREEN, las dos primeras (SCREEN 0 
y 1) corresponden al modo de texto, 
constituyendo el aliciente principal el he- 
cho de poder trabajar hasta con 80 co- 
lumnas en SCREEN o mediante la or- 
den WIDTH 80. 

La resolución gráfica puede llegar 
hasta los 512x212 puntos, utilizando 
una paleta de hasta 1 6 colores de entre 
256 ó 4 de entre 512; o bien 256x212 
puntos con una paleta de hasta 256 co- 
lores... 

Una mayor capacidad de almacena- 
miento de datos, que como hemos visto 
viene asegurada con la inclusión de la 
unidad de disco de 1 Mb. 

La inclusión de un reloj-calendario in- 
corporado. El 700S lleva incorporados 
un calendario y un reloj alimentados por 
una batería de níquel-cadmio que man- 
tiene en funcionamiento- aún cuando la 
alimentación esté desconectada. Esta 
batería se recarga cada vez que se co- 
necta la alimentación del aparato, por lo 
cual su duración es prácticamente ilimi- 
tada. 



FIGURA 1: MAPA DE MEMORIA 





De todos modos, quizá la característi- 
ca definitiva en favor de este aparato 
sea el completísimo paquete de softwa- 
re suministrado con el 700S, que incor- 
pora los programas más habituales de 
aplicaciones profesionales: Se trata de: 
Un procesador de Textos, Una Base de 
Datos, una Hoja de Cálculo y un progra- 
ma de Gráficos de Gestión. 

El manejo de este paquete se efectúa 
mediante iconos (menús de selección 
gráfica) que facilitan enormemente el 
trabajo a los usuarios no especializa- 
dos. De esta manera se pueden realizar 
todas las tareas necesarias -grabación/ 
carga de programas, copia de ficheros, 
formateo de discos...- sin necesidad de 
un conocimiento previo de los coman- 
dos de programación. 

Por si esto fuera poco, y para facilitar 
el movimiento del cursor por la pantalla, 
se suministra un «ratón». 

CONCLUSIONES 

Sony España, ya nos tiene acostum- 
brados a lo bueno. Sirva de precedente 
la extensísima gama -tanto de ordena- 
dores como de periféricos o software- 
que lanzó ya con la primera generación. 

Este equipo, que como hemos co- 
mentado cumple los requisitos máximos 
entre sus homólogos del estándar es ca- 
paz de satisfacer las necesidades de 
cualquiera; bien sea un particular, un es- 
tudiante o un pequeño comerciante. 

Recordemos que la palabra HIT (de 
Hit Bit) significa nada más y nada menos 
ue Home Intelligent Terminal (Terminal 
oméstico inteligente), y esto es lo que 
pretende el fabricante en todos sus mo- 
delos. Quizá lo verdaderamente impor- 
tante de este equipo sea su inmensa ca- 
pacidad de ampliación, que incluso per- 
mite convertirlo en terminal inteligente 
de configuraciones más grandes. 

La inclusión de tres ranuras de cartu- 
cho, permite ampliar considerablemen- 
te la configuración, ocupando las ranu- 
ras con un interface de comunicaciones, 
lenguajes o utilidades o incluso conec- 
tarlo directamente con otro ordenador. 
Quizá un pequeño punto negro sea la no 



2 3 



inclusión de una salida de radiofrecuen- 
cia (RF) para conectarlo a un televisor 
doméstico, pero todos aquellos que ha- 
yan podido comprobar la altísima defini- 
ción de un monitor TRINITRON, lo sal- 
varán inmediatamente. Siendo el caba- 
llo de batalla de la norma la compatibili- 
dad, para este ordenador se abre adicio- 
nalmente el inmenso abanico de los pro- 
ductos fabricados por otros represen- 
tantes de la norma. 

Un atractivo adicional es su precio 
(98.000 ptas. + IVA), lo que en una con- 
figuración de estas características es 
casi un regalo. 



FICHA TECNICA SONY HB-F700S 



&H0000 



PAGINA 

0-0 




&HFFFF 



CARACTERISTICAS 



Conexiones 
DIRECTAS: 



INTERFACE 

CASSETTE: 

GRAFICOS 

SPRITE: 

RELOJ/ 

CALENDARIO: 

LECTOR DE 

DISKETTES: 



LENGUAJES 
DISPONIBLES: 



-Cassette 

-RGB para monitor video 

- Video/Audio (Monocromo) 

- Impresora 
-Joystick(2) 

- Lector de Diskettes de 3,5 pulgadas 
-Bola gráfica, ratón, etc.. 

Velocidad variable- 1 .200/2.400 B. 

32 Planos. Posibilidad de Multicolor 

Con batería interna autónoma. 

- Diskette de 3.5 pulgadas 

- Doble cara/Doble densidad 

- Capacidad de 1 MByte 
(720K, formateado) 

- Manual de instrucciones 

- Cable Audio/Video 

- Manual - Introducción al 
BASIC MSX 2» 

- -Manual de referencia para 
programación en BASIC MSX 2» 

- Paquete de gestión integrado: 

Procesador de Textos, 

Base de Datos. Hoja de Cálculo. 

Gráficas de Gestión 

- «Ratón» incorporado 

FORTRAN. COBOL. PASCAL. -C». 
LOGO y EMSAMBLADOR 



ESPECIFICACIONES 



PROCESADOR: 

FRECUENCIA 

CLOCK: 

MEMORIA ROM: 



MEMORIA RAM. 



TEXTO EN 
PANTALLA: 

RESOLUCION 
GRAFICA: 



COLORES: 
TECLADO: 



SONIDO: 
CARTUCHOS: 



Z80A 

3,58 MHZ 
64KBytes 

48 KBytes (BASIC MSX versión 2.0) 
1 6 KBytes (DISK BASIC) 
384 KBytes 

256 KBytes (memoria principal) 
1 28 KBytes (memoria de v(deo) 

40 caracteres x 24 lineas 
80 caracteres x 24 líneas 

SCREEN 2: 256 x 192 puntos. 
16 colores. 

SCREEN 3: 64 x 48 bloques. 
16 colores. 

SCREEN 4: 256 x 192 puntos. 
16 colores. 

SCREEN 5: 256 x 192 puntos. 

16 colores (BM)- 

SCREEN6:512x212puntos. 

4 colores (BM)' 

SCREEN 7: 51 2 x 21 2 puntos. 

16 colores (BM)" 

SCREEN 8: 256 x 21 2 puntos. 

256 colores (BM)" 

1 6 colores de una paleta de 51 2. 

256 colores (SCREEN 8) 

90 teclas 

teclas de control: 12 

teclas de función: 5 

teclas de edición: 8 

Teclado numérico independiente. 

8 Octavas/3 voces 

2 conectores de 50 contactos. 



*BM: Bit Mapped. Permite acceder a la pantalla punto a pun- 
to de forma que es posible mantener en cada uno un color 
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DE MAILING 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MMUNG PUEDES ADQUIRIR 




ADAPTADORES TARJETAS 
INTELIGENTES 
BEE CARD Y SOFTCARD 






Deja el manual de lado, inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria 

PVP 3.500 pts. 



No te quedes al margen y disfruta de las tarjetas 
inteligentes. Lo último en soft. PVP 2.850 pts. 



' Nombre y apellidos 

I Dirección 

I Población 



ENVIA HOY MISMO ESTE CUPON 



....... 







CP 



Prov. 



Tel. 



I □ Tutor Basic Ptas. 3.500,- □ Adaptador Bee Card Ras. 2.850,- □ Adaptador Softcard Ras. 2.850,- 
| Gastos de envío por cada producto 1 00,- pts. 

| Remito talón bancario de pts. a la orden de Manhattan Transfer, S.A. 

^Erjviar aMSX CLUB DE MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



¡CALL! 



EL INTERPRETE BASIC 



Conocer el Basic MSX por dentro es uno de los aspectos más interesantes de este articulo. 
Aquí encontrarás lo que son los «tokens», un listado de ellos y te enterarás cómo se guardan las variables. 



Cada vez que completas una or- 
den, corres un programa o pul- 
sas una tecla, el intérprete BA- 
SIC se pone en funcionamiento para in- 
tentar comprender qué es lo que deseas 
que haga. Si encuentra un comando vá- 
lido, llama a la rutina correspondiente 
para ejecutarlo. 

Como posiblemente sabrás, los intér- 
pretes se distinguen de los compilado- 
res en que van tomando una a una cada 
instrucción, a diferencia de estos últi- 
mos, que realizan la decodificación en el 
proceso de compilado y generan un có- 
digo objeto con las direcciones en las 
que se encuentran las rutinas para tratar 
los diferentes comandos. El hecho de 
realizar la interpretación de un solo paso 
hace que el compilado sea lento, aun- 
que, en contrapartida, la ejecución re- 
sultará más rápida. 

El BASIC que usan los MSX es, en 
cierto modo, un lenguaje seudocompila- 
do. Cuando se introduce una nueva lí- 
nea desde el teclado, el intérprete tradu- 
ce las órdenes y las variables a un for- 
mato fácil de entender para él, de suerte 
que la ejecución de programa resulte 
más rápida. Un ejemplo aclarará mejor 
este punto: 

10PRINT &H10000 

Prueba a teclear la línea anterior. 
Cuando pulses RETURN el ordenador 
rehusará la línea y emitirá un mensaje 
de error (Overflow). Ello es debido a que 
el intérprete reconoce los símbolos 
«&H» como indicativos de una constan- 
te entera de dos bytes y en este caso se 
necesitarían tres bytes para represen- 
tarla. 



Los ordenadores MSX de al menos 
32K tienen la zona de inicio del BASIC 
en la dirección 32768, y es ahí donde se 
empiezan a recoger todos los datos. Al 
introducir una línea, el intérprete busca 
una palabra reservada. Si no la encuen- 
tra, entiende que se trata del nombre de 
una variable y la almacena como tal. Por 
contra, si reconoce una palabra clave, 
sustituye los caracteres ASC de ésta por 
uno o dos bytes que corresponden a su 
número de token. El empleo de tokens 
hacer ahorrar memoria y agilizar el tiem- 
po de ejecución. 



A fin de comprender mejor el concep- 
to de «token» y la forma en la que se al- 
macenan los programas, observa la ta- 
bla 1 . Esta tabla recoge la disposición in- 
terna del programa del I 



LISTADO 1 



10 REM MSX EXTRA 

20 FORX=32768!T032824! 

30 PRINTX; PEEK(X) 

40 NEXT 

Los tokens son representados por un 
número mayor de 1 28, a fin de que no se 
confundan con el nombre de alguna va- 
riable. Puesto que hay más de 1 28 pala- 
bras reservadas, es preciso recurrir a un 
prefijo (255) para conseguir diferenciar- 
las todas. 

Habréis notado que los dos primeros 
bytes de una línea indican la dirección 
de la siguiente. Esto sirve, entre otras 
cosas, como puntero para saber dónde 
hay que dirigirse para encontrar una lí- 
nea determinada. Si ejecutas un GOTO 
en un programa, el intérprete irá miran- 
do los dos bytes siguientes al puntero y 
comprobará si corresponden al número 
de línea solicitado, tn el caso de que 
ésta estuviera muy alejada del principio 
del programa, la búsqueda se alargaría, 
de ahí el motivo de que el tiempo de eje- 
cución sea menor en las primeras lí- 
neas. 

COMO SE GUARDAN LAS 
VARIABLES 

Los MSX manejan cuatro tipos de va- 
riables: enteras, de precisión simple, de 
precisión doble y de cadena. 

Cada una de estas variables ocupa un 
número de bytes determinado (2,4,8 y 3, 
respectivamente), que es empleado a 
su vez como indicativo. Después del in- 
dicativo, vienen dos bytes que enseñan 
el nombre de la variable. Supón que de- 
seas realizar una operación con la varia- 
ble AB. El sistema leerá el valor de las 
posiciones &HF6C2 y &HF6C3 (direc- 
ción inicial de variables) e intentará ha- 
llar a partir de ahí un 8 (distintivo de do- 
ble precisión). Si lo encuentra, compro- 
bará que los próximos bytes sean 65 y 
66 (código de « A>» y «B»), así podrá leer 



los ocho bytes siguientes, con la certeza 
de que corresponden a la variable perdi- 
da. Una vez más las variables que se 
definen al principio son encontradas con 
mayor rapidez, por lo que resulta conve- 
niente declarar en las primeras líneas 
las que van a usarse con más frecuen- 
cia. 



32768 
32769 
32770 
32771 
32772 
32773 
32774 
32775 
32776 
32777 
32778 
32779 
32780 
32781 
32782 
32783 
32784 
32785 
32786 
32787 
32788 
32789 
32790 
32791 
32792 
32793 
32794 
32795 
32796 
32797 
32798 
32799 
32800 
32801 
32802 
32803 
32804 
32805 
32806 
32807 
32808 
32809 
32810 
32811 
32812 
32813 
32814 
32815 
32816 
32817 
32818 
32819 
32820 
32821 
32822 
32823 



0 
17 
128 
10 

0 

143 

32 

77 

83 

88 

32 

69 

88 

84 

82 

65 

0 

36 
128 
20 
0 

130 

88 

239 

29 

69 

50 

118 

128 

217 

29 

69 

50 

130 

64 

0 

49 

128 

30 

0 

145 
88 
59 
255 

151 

40 

88 

41 

0 

55 
128 
40 
0 

131 

0 

o 



TABLA 1 



marca de Inicio de programa 

dirección de la siguiente 

línea del programa 

número de línea 

i 2 bytes » 

token de REM 

espac i o 

<M> 

<S> 

<X> 

espacio 

<E> 
<X> 
<T> 
<R> 
<A> 

marca de fin de línea 
dirección de la siguiente 
línea del programa 
numero de línea 
<2 bytes) 
Token de FOR 
<X> 
< = > 

constante de precisión simple 
byte del exponente 
mantisa <3 bytes) 



token de TO 

constante de precisión simple 
byte del exponente 
mantisa <3 bytes > 



marca de íin de línea 
dirección de la siguiente 
línea del programa 
número de línea 
<2 bytes) 
token de PRIMT 
<X> 
< ; > 

token de PEEK con el 
prefijo de ester.sion 255 

< O 
<X> 
<>.> 

marca de fin de línea 
dirección de la siguiente 
línea del programa 
número de línea 
<2 bytes; 
token de NEXT 
marca de i in de ] ínea 
marca de fin de 
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El ejemplo anterior es válido para 
cualquier tipo de variable númerica que 
no sea de conjunto. Sin embargo, las ca- 
denas no se guardan a continuación del 
nombre. Luego del indicativo (3) y de los 
dos códigos ASC del nombre, viene un 
byte que muestra la longitud (LEN). Los 
dos siguientes señalan el lugar en el que 
se encuentra el contenido de la cadena. 
Cuando una variable alfanumórica es 
borrada, el sistema pone a cero su longi- 
tud y su puntero. Esto puede hacer que 
la zona de cadenas, especificada con 
CLEAR, se llene de datos inutilizados. 

RECOGER LA RASURA 

El manejo de muchas variables alfa- 
numéricas es el punto más débil del BA- 
SIC. Es casi seguro que habrás ejecuta- 
do algún programa con un buen número 
de cadenas. De improviso el ordenador 
hace una pausa y parece que no res- 
ponde a las teclas. Esto se debe a que el 
«Recolector de Basura» (Garbage Co- 
llection) esta haciendo maravillas para 
reorganizar el espacio de las cadenas. 
Lo malo es que muchas veces no hace 
falta tal reorganización, aunque el siste- 
ma no lo sabe y tiene que leer una a una 
todas las variables y realizar muchísi- 
mos cálculos para llegar a conocer qué 
espacios contienen datos útiles y qué 
espacios deben ser eliminados por in- 
servibles. El que los datos estén ya or- 
denados es algo que le trae sin cuidado. 

La reorganización interna de las ca- 
denas se hace cuando el sistema lo con- 
sidera necesario o cuando el usuario or- 
dena averiguar el espacio libre: FRE 
(""). Particularmente he probado a llevar 
al sistema a un límite extremo, dimen- 
sionnado una matriz alfanumérica de 
5000 elementos y asignándole a cada 
uno de ellos un carácter. Al preguntar 
por el espacio libre, el ordenador tarda 
cerca de 20 minutos en dar el resultado. 

MANIPULANDO AL BASIC 

Conocer la forma en que se almace- 
nan los programas en BASIC da la opor- 
tunidad de construir herramientas que 
ayuden a la programación. Desde pro- 
tecciones contra listados, hasta rutinas 
para mover líneaas, pasando por pro- 
gramas que se autoamplían. A conti- 
nuación hay una rutina que pertenece a 
este último tipo. Sirve para leer datos 
entre dos posiciones de memoria, espe- 
cificadas de antemano, y ampliar el pro- 
grama en curso, generando tantas lí- 
neas DATA como sean precisas. Su uso 
puede ser útil para leer las definiciones 
de un SPRITE, transformar en DAT As 
un programa escrito con un ensambla- 
dor, etc. De hecho los cargadores que 
aparecen en esta sección no han sido 
tecleados, simplemente dejo que esta 
rutina haga el trabajo. 

He aquí su listado en ASSEMBLER: 



LISTADO 2 


570 CERRAR: CALL HEVLIHE 
580 LD (IX+0),0 














590 

w 7 v 


LD ( T Y+1 ) 0 


10 


ORG 


45000 


600 

w V V 


LD HI ( TDP > 


20 IIICIO:EQU 


#B071 


610 


LD (TDP) HT 


30 FINAL: EQU 


#B073 


620 


LD (ARRAYS), HL 


40 TOP: 


EQU 


#F6C6 


630 


LD (VARSIM).HL 


50 ARRAYS: EQU 


#F6C4 


640 


El 


60 VARSIK:EQU 


#F6C2 


650 


RET 


70 


LD 


HL, #8001 


660 




80 


DI 




670 




90 


LD 


E, L 


680 




100 


LD 


D, H 


690 HEX: ADD A,"0" 


110 LOOP: 


LD 


B, D 


700 


IHC HL 


120 


LD 


C, E 


710 


IHC C 


130 


LD 


E, (HL) 


720 


CP H 9 M +1 


140 


INC 


HL 


730 


JR C,DIG 


150 


LD 


D, (HL) 


740 


ADD A, 7 


160 


LD 


A,D 


750 DIG: LD (HL) , A 


170 


OR 


E 


760 


RET 


180 


EX 


DE, HL 


770 




190 


JR 


NZ , LOOP 


780 




200 


EX 


DE, HL 


790 




210 


DEC 


BC 


800 NEVLINE:LD (HL),0 


220 


DEC 


HL 


810 


IHC HL 


230 


DEC 


HL 


820 


INC C 


240 


PUSH 


BC 


830 


PUSH HL 


250 


POP 


IX 


840 


LD B,0 


260 


SBC 


HL, BC 


850 


LD (IX+0),L 


270 


ADD 


HL, BC 


860 


LD (IX+1),H 


280 


LD 


c, -1 


870 


LD HL, (TOP) 


290 


JR 


NZ, SILINE 


880 


ADD HL, BC 


300 


LD 


( IX+3) , L 


890 


LD (TOP).HL 


310 


LD 


( IX+2) , D 


900 


NO: LD C, (IX+2) 


320 SILINE: LD 


DE, ( INICIO) 
NEVLINE 


910 


LD B, ( IX+3) 


330 LINE: 


CALL 


920 


IHC BC 


340 CONT: 


LD 


A, C 


930 


POP HL 


350 


CP 


198 


940 


PUSH HL 


360 


JR 


NC, LINE 


950 


POP IX 


370 


LD 


A, (DE) 


960 


LD (IX+2),C 


380 


PUSH 


Ar 


970 


LD (IX+3),B, 


390 


SRL 


A 


980 


LD (IX+4),#84 
LD BC,4 


400 


SRL 


A 


990 


410 


SRL 


A 


1000 


ADD HL , BC 


420 


SRL 


A 


1010 


RET 


430 


CALL 


HEX 






440 


POP 


AF 


A continuación el cargador BASIC de 


450 


AND 


15 


la rutina. Un cargador que ha sido gene- 


460 


CALL 




rado por otro cargador que a su vez ha 


470 
480 


IHC 
IHC 


HL 

C 


sido generado por un ensamblador 

(¡uf!): 


490 

500 


LD 
LD 


(HL), V 
A, (FINAL+1) 








LISIADO 3 


510 


CP 


D 






520 


JR 


NZ, SIGUE 


10 FORX=45000!TO45166!:READ 


530 


LD 


A, (FIHAL) 


VS 




540 


CP 


E 


20 POKEX,VAL("&H"+V$):S=S+P 


550 SIGUE: 


IHC 


DE 


EEK(X) 


560 


JR 


HZ.CONT 


30 NEXT 
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40 IFS<>19496THEHBEEP:CLS:P 
RINT"HAY UN ERROR" 
50 DATA21,01,80,F3,5D,54,42 
, 4B, 5E, 23, 56, 7A, B3, EB, 20, F6 
, EB, OB, 2B, 2B, C5, DD, El , ED, 42 
, 09, OE, FF, 20, 06, DD, 75, 03, DD 
,72,02,ED,5B,71,B0,CD,41,B0 
,79,FE,C6,30,F8, 1A,F5,CB,3F 
, CB, 3F, CB, 3F, CB, 3F, CD, 35, BO 
,F1,E6,0F,CD 

60 DATA35,B0,23,0C,36,2C,3A 
,74,B0,BA,20,04,3A,73,B0,BB 
, 13, 20, D7, CD, 41 , BO, DD, 36, 00 
, 00,DD,36, 01, 00,2A,C6,F6,22 
,C6,F6,22,C4,F6,22,C2,F6,FB 
, C9, C6, 30, 23, OC, FE, 3A, 38, 02 
,C6,07,77,C9,36, 00,23, 0C.E5 
,06,00,DD,75 

70 DATA00,DD,74,01,2A,C6,F6 
, 09, 22, C6, F6, DD, 4E, 02, DD, 46 
,03,03,E1,E5,DD,E1,DD,71,02 
,DD,70,03,DD,36,04,84,01,04 
,00,09,C9 



PROGRAMA LISTAD OR 
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\l 

20 

30 

40 

50 

60 

56) 

70 

80 



JSTADO 4 



CLS: INPÜT"DIRC. INICIAL" 

INPUT"DIRC. FINAL ";F 
IFK0THENI = I+2"16 
IFF<0THENF=F+2' , 16 
IFI>=FTHENBEEP: GOT010 
POKE&HB071, I-256*INT(I/2 

POKE&HB072, 1/256 
POKE&HB073, F-256*INT(F/2 




90 POKE&HB074.F/256 

100 DEFUSR5=45000! : PRINTUSR 

5(0) 

Cuando tengáis los códigos en me- 
moria, podréis emplear un pequeño 
gestor que se encargue de pedir la di- 
rección inicial y la final y de llamar a la ru- 
tina generadora de líneas DATA. No es 
usar este gestor para 
ina, puede hacerse desde 
i programas, puesto que 
ulará el final del texto y 
pondrá las DATAs a partir de la última lí- 
nea, numerándolas con incrementos de 
1 . Lo que os ruego es que la llamada a la 
rutina desde vuestro programa se haga 
de forma idéntica a la déla línea 1 00. 

Por otra parte, es posible realizar un 
programa (una agenda por ejemplo), 
donde los datos se fundan con el progra- 
ma en forma de líneas DATA, en lugar 
de guardarlos de manera independien- 
te. Esta rutina no sirve para el cometido, 
puesto que borra todas las variables y 
salta al modo de edición. Los que quie- 





upY 




183 


B7 


FILES 


239 


EF 


= 






184 


B8 


LSET 


240 


F0 


< 


129 


81 


END 


185 


B9 


RSET 


241 


Fl 


+ 


130 




FOR 


186 


BA 


SAVE 


242 


F2 


- 


131 


83 


NEXT 


187 


BB 


LFILES 


243 


F3 




132 


84 


DATA 


188 


BC 


CIRCLE 


244 


F4 


/ 


133 


85 


INPUT 


189 


BD 


COLOR 


245 


F5 




134 


86 


DIM 


190 


BE 


DRAW 


246 


F6 


AND 


135 


87 


READ 


191 


BF 


PAINT 


247 


F7 


OR 


136 


88 


LET 


192 


CO 


BEEP 


248 


F8 


XOR 


137 


89 


GOTO 


193 


Cl 


PLAY 


249 


F9 


EQV 


138 


8A 


RUN 


194 


C2 


PSET 


250 


FA 


IMP 


139 


8B 


IF 


195 


C3 


PRESET 


251 


FB 


MOD 


140 


8C 


RESTORE 


196 


C4 


SOUND 


252 


FC 


\ 


141 


8D 


GOSUB 


197 


C5 


SCREEN 


TOKE1ÍS CON 
PREFIJO 


142 


8E 


RETURN 


198 


C6 


VPOKE 


143 


8F 


REM 


199 


C7 


SPRITE 








144 


90 


STOP 


200 


C8 


VDP 


Db.L, 


ir r? Y 


1 UK.C.H 


145 


91 


PRINT 


201 


C9 


BASE 








146 


92 


CLEAR 


202 


CA 


CALL 


i¿y 


A 1 
O 1 


T CCT* 


147 


93 


LIST 


203 


CB 


TIME 


1 O O 


o¿ 


Klünlí 


148 


94 


NEV 


204 


CC 


KEY 


lo I 


o o 
OO 




149 


95 


ON 


205 


CD 


MAX 




A A 

o4 




150 


96 


VA IT 


2 06 


CE 


MOTOR 


loo 


OO 


1 PJ 1 


151 


97 


DEF 


207 


CF 


BLOAD 


1 O A 

lo4 


OO 


Abo 


152 


98 


POKE 


208 


DO 


BSAVE 


loo 


o ( 




153 


99 


CONT 


209 


DI 


DSKOS 


lOO 


OO 




154 


9A 


CSAVE 


210 


D2 


SET 


lo f 


Afi 

oy 




155 


9B 


CLOAD 


211 


D3 


ÑAME 


1 T A 

loo 


A A 
O A 




156 


9C 


OUT 


212 


D4 


K ILL 


loy 


ob 


CVD 

bXr 


157 


9D 


LPRINT 


213 


D5 


IPL 


14 0 


oC 


CUo 


158 


9E 


LLIST 


214 


D6 


COPY 


1 A 1 


O U 


L nvt 


159 


9F 


CLS 


215 


D7 


CMD 


142 


8E 


ATN 


160 


AO 


VIDTH 


216 


D8 


LOCATE 


143 


8F 


FRE 


161 


Al 


LSE 


217 


D9 


TO 


144 


90 


INP 


162 


A2 


TRON 


218 


DA 


THEN 


145 


91 


POS 


163 


A3 


TROFF 


219 


DB 


TAB( 


146 


92 


LEN 


164 


A4 


SVAP 


220 


DC 


STEP 


147 


93 


STR$ 


165 


A5 


ERASE 


221 


DD 


USR 


148 


94 


VAL 


166 


A6 


ERROR 


222 


DE 


FN 


149 


95 


ASC 


167 


A7 


RESUME 


223 


DF 


SPCt 


150 


96 


CHRS 


168 


A8 


DELETE 


224 


E0 


NOT 


151 


97 


PEEK 


169 


A9 


AUTO 


225 


El 


ERL 


152 


98 


VPEEK 


170 


AA 


RENUM 


226 


E2 


ERR 


153 


99 


SPACEfc 


171 


AB 


DEFSTR 


227 


E3 


STRINGS 


154 


9A 


OCTS 


172 


AC 


DEF I NT 


228 


E4 


USI NG 


155 


9B 


HEXS 


173 


AD 


DEFSNG 


229 


E5 


1NSTR 


156 


9C 


LPOS 


174 


AE 


DEFDBL 


230 


E6 




157 


9D 


BINS 


175 


AF 


LINE 


231 


E7 


VARPTR 


158 


9E 


C1NT 


176 


BO 


OPEN 


232 


E8 


CSRLIN 


159 


9F 


CSNG 


177 


Bl 


FIELD 


233 


E9 


ATTRS 


160 


A0 


CDBL 


178 


B2 


GET 


234 


EA 


DSKIS 


161 


Al 


FIX 


179 


B3 


PUT 


235 


EB 


OFF 


162 


A2 


STICK 


180 


B4 


CLOSE 


236 


EC 


INKEYS 


163 


A3 


STRIG 


181 


B5 


LOAD 


237 


ED 


POINT 


164 


A4 


PDL 




11 



viene 



de la pág. anterior 



165 A5 

166 A6 



PAD 
DSKF 
•P 



169 A9 

170 A A 
V 



CVS 
CVD 




173 AD LOF 

174 AE MKIS 

175 AF MKSS 

176 B0 MKDS 




ran adaptarla, deberán modificar la su- 
brutina NEWLINE, pra actualizar los 
punteros de las variables (&HF6C2a 
&HF6C7) y desplazar todas éstas hacia 
arriba con un LDDR. 



Para «parchear» el BASIC es necesa- 
rio tener una lista completa de los TO- 
KENS. Algunos manuales la recogen, 
pero es mejor tener un programa que se 
encargue de editarla por pantalla o im- 
presora cuando lo deseemos. Desde 
aquí os propongo, a título de ejercicio, 
que intentéis averiguar exactamente el 
funcionamiento de las 11 líneas que 



componen el programa. Dos pistas: la lí- 
nea 70 asigna a D el valor de un gancho 
llamado por el sistema cuando está listo 
para tomar una línea del teclado, y los 
POKEs de la línea 90 señalan a la direc- 
ción de ejecución del comando RUN 
(&H73AC). 

Así ver el listado y el programa lis- 
tador: 



LISTADO 5 



10 GOT030 
20 END 

30 B=&H800E:PRINTCHR$(11);P 
EEK(B) ; HEX$(PEEK(B) ) ; " " ; 
40 FORX=10TO20:PRINTCHR$(VP 
EEK<X) ) ; : HEXT 

50 IFPEEK(B)=252THENP0KE&HF 

F07.&HC9: END 

60 P0KEB,PEEK(B)+1 

70 D=&HFF07 

80 POKED+l,&HFl:POKED+2,&HC 

3 

90 POKED+3,&HAC:POKED+4,&H7 



100 POKED.&HFl 

110 PRIITCHR$<12>;" 

LIST20 



Los tokens con prefijo (255) se pue- 
den obtener sustituyendo el END de la 
línea 20 por LEFT$ y haciendo que la lí- 
nea 30 asigne a B el valor &H800F. Por 
otra parte, es preciso respetar exacta- 
mente todos los espacios y caracteres 
del programa, puesto que en otro caso 
el ordenador se podría bloquear. Lo que 
sí puede hacerse en añadir una línea 
(45) para esperar la pulsación de uñaté- 
ela. 



HIlMl II» 



Se pueden obtener cosas interesan- 
tes con unos POKEs en la zona del BA- 
SIC. Teclea lo siguiente: 

10GOTO30 

20 SIN 

30 PRINT"HOLA":GOTO30 

Ejecuta el programa y listado. Ahora 
teclea en modo directo: 

POKE&H800F.56. Cuando vuelvas a 
listar, la línea 20 borrará todo lo apareci- 
do hasta el momento. Observa también 
que el programa funciona perfectamen- 
te. Basta con repetir la operación en va- 
rias partes de un programa largo para 
que los extraños tengan difícil obtener 
un listado. 

Otra curiosidad, esta vez para demos- 
trar la necesidad de acabar las subruti- 
nas con un RETURN y no dejar bucles 
FOR/NEXT abiertos: 

10GOSUB20 

20 GOSUB10 

Todo lo que se almacena en la pila del 
BASIC debe sacarse de nuevo, porque 
se consume memoria innecesaria. Eje- 
cuta las dos líneas anteriores y lo veras. 

POR JOAQUIN LOPEZ 




JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 




El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 



PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas. 



SAGRAN 




CONCURSO 


PROGRAMA 


DEL AÑO 



do con REM los distintos apartados 
del mismo. 



PREMIOS 



7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en mas de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10— Nuestro Departamento de Progra- 



CREA Y ENVIANOS TU PROGRAMA. HAT PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO. 

m ación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de SJ. EXTRA MSX. 

1 1- Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
0xpr0S8i*m0nt0 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 




REMITIRA: 
CONCURSO EXTRA 
MSX 

RocaiBatlle, 10-12 
bajos 

08023 Barcelona 



BASES 



1- Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 

2- Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3- Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4- No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5- Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 




han de estar es- 
claro, separan- 




NOMBRE DEL PROGRAMA 



CATEGORIA 

PARA K 

INSTRUCCION DE 



AUTOR: 
EDAD: 

CALLE: 

CIUDAD 

N.° DE RECEPCION 



DP 




........ 



J 



.'..•Jjr .S^.j 




• •I 



*r* / i\uüi\ni // /_' 



i ii II n II 11 i i 





0 
10 

20 
30 
40 
50 
60 
70 
80 
90 



' &&&&&&&&&&&&&&&&&&& 
*S< EL JUEGO DE LOS & 
'&B ARQUITOS& 
' ?< ?< & & ?< ?/. & & & & ?< ?< ?< ?< & & ?< ?< 
' & & & & ?< ?/ 2< ?•< fe & S< & & & & ?/. & & ?/. 
=•?< ANGEL DE GRACIA b 
' & PARA S< 

? ?< SUPER JUEGOS & 
EXTRA-M S X 8f 
" ?< ?< 2< S< ?í ?< & S< ?< ?< ?< ?< 8í & Sí & 8< & & 



100 DEFINT A-W:DIMT*<9,9) :DIMT1*<9, 
9):DIM P ( 16) : DIMT2* (20) : Z$=" " : KEY O 
FF 

110 SCREEN0: WIDTH 40: COLOR 15,4,2 
120 PRINT"¿QUIERES INSTRUCCIONES (S/ 

N)?" 

130 X*=INKEY$: IF X*<>"S" AND X*<>"N 
"THEN 130 

140 IF X*="N" THEN 430 

150 PRINT: PRINT"E1 juego consiste e 

n adivinar donde tie-ne puestos sus 

barcos el ordenador." 
160 PRINT"E1 juego tiene 10 niveles 
, y en cada ni-vel se juega con un 
numero distinto de barcos." 
170 PRINT 

180 PRINT"Es aconsejable colocar lo 
s barcos de la misma cantidad de cu 
adros que los pide el ordenador, co 
n el -fin de saber en todo momento d 
e que cantidad de cuadros sonlos b 
arcos que tiene el M S X, ya que 
coinciden con los que pide él." 
190 PRINT 

200 PRINT"Para borrar un cuadro hay 
que escribir de nuevo sus coorden 
adas. " 
210 PRINT 

220 PRINT"E1 ordenador nunca coloca 
los barcos adosadas, es decir que 



barquitos. Naturalmen 
a üonfir difícil— 






entre dos barcos de cualquier canti 
dad de cuadros, siempre hay cuadra 
s en bl anco. " 

230 PRINT: PRINT "PULSA LA BARRA ESPA 
CI ADORA" 

240 IF STRIG<0)=0 THEN 240 
250 CLS 

260 PRINT "La puntuación se obtiene 
sumando 100 puntos a 1 os marcadores 
, y restando los se-gundos que se h 
aya tardado en tocar o enhundir un 
barco. " 

270 PRINT"Cuando el barco es hundi 

do se aumentan 50 puntos más al mar 
cador . " 

280 PRINT 

290 PRINT"Para que no podamos entre 
tener al ordenador , cuando está espe 
rando que le digamos si su respuest 
a es AGUA (A) -TOCADO (T) ó HUNDIDO (H) 
, aparece en pantalla un contador d 
e tiempo, y por cada 10 segundos su 
mará 10 puntos al marcador del M S 
X. " 

300 PRINT 

310 PRINT"Cuando toca contestar a 1 
a persona, ésta puede pulsar la tec 
la F-l y aparecerá en pantalla un 
consejo al azar, si a continuación 
se pulsa F-2 ésta respuesta será la 

de-f ini ti va. " 
320 PRINT 

330 PRINT"Si no nos gusta el consej 

o se pueden escribir otras coordena 

das antes de pulsar F-2. « PULSA L 

A BARRA ESPACI ADORA 

340 IF STRIG<0)=0 THEN 340 

350 CLS 

360 PRINT "LAS LETRAS DE LAS RESPUES 
TAS HAY QUE ES-CRI BIRLAS SIEMPRE EN 
MAYUSCULAS" 



I 



370 PRINT:PRINT:PRINT"CUANDÜ EL ÜRD 
ENADOR NOS PIDA EL NOMBRE NO SE PU 
EDEN ESCRIBIR MAS DE 7 LETRAS. SISE 
ESCRIBEN MENOS HAY QUE PULSAR RETUR 
N PARA QUE SIGA EL PROGRAMA" 
380 PRINT: PRINT: PRINT" ¡ ¡EL M S X CG 
MPROBARA SI SE LE TRATA DE ENGAñAR 
CON NUESTRAS RESPUESTAS. ! ! " 
390 PRINT: PRINT "CUANDO DE UNA PARTI 
DA A OTRA NO CAMBIA EL JUGADOR, LO 
S MARCADORES ACUMULAN LOS PUNTOS OB 
TENIDOS EN LA PARTIDA ANTERIOR." 
400 PRINT: PRINT "AL GANADOR DE LA PA 
RTIDA SE LE SUMAN 200PUNTOS MAS DE 
LOS CONSEGUIDOS" 

410 PRINT: PRINT" « SUERTE Y QUE 

GANE EL MEJOR.»" 

420 IF STRIG(0)=0 THEN 420 

430 SCREEN2: OPEN"GRP: "FOR OUTPUT AS 

#1 

440 PRESET ( 80, 50 ): PRINTttl, "J U E G 
O" : PRESET (75, 100) : PRINT#1 , "D E LO 
S " : PRESET ( 45 , 1 50 ) : PR I NTtt 1 , " B A R Q 
U I T O S":FOR K=l TO 1000: NEXT 
450 ON KEY GOSUB 3000,3070 
455 'Tabla en donde el ordenador a 
notará el resultado de sus investig 
aciones sobre los barcos de la pers 
ona 

460 FOR K=0 TO 9 
470 FOR 1=0 TO 9 
480 TI» (K, I) ="V" 
490 NEXT I 
500 NEXT K 

510 » ***HACER LOS CUADROS*** 

520 CLS:LINE(10, 10) -(110, 110) , 10, BF 

8LINEU50, 10)-(250, 110) , 10, BF 

530 L=10:L1=0:L2=110:L3=0 

540 FOR K=l TO 2 

550 FOR 1=1 TO 11 

560 L1=L1+10:L3=L3+10 

570 LINE (L,L1)-(L2,L3) , 1 

580 NEXT I 

590 L=150:L1=0:L2=250:L3=0 

600 NEXT K 

610 L=250 

620 FOR K=l TO 2 

630 FOR 1=1 TO 11 

640 L=L-10 

650 PRESET (L, 110) : DRAWU100C1 " 
660 NEXT I 
670 L=120 
680 NEXT K 
690 L=115 



700 FOR 1=1 TO 2 

710 J=12:M=64 

720 FOR K=0 TO 9 

730 PRESET ( L , J ) : M=M+ 1 

740 PRINTttl, CHR*(M> 

750 J=J+10 

760 NEXT K 

770 L=139 

780 NEXT I 

790 L=145:J=3 

800 FOR 1=1 TO 2 

810 FOR K=0 TO 9 

820 PSET(L, J) , 15: PRINTttl, K 

830 L=L+10 

840 NEXT K 

850 L=5 

860 NEXT I 

870 PSET(145,3) ,4:PSET(5,3) ,4 

880 PSET(10, 115) ,4: PRINTttl, "ORDENAD 

OR-P: ":PSET(95, 115) , 4: PRINT#1 , PO 

890 PSET ( 1 50 , 1 1 5 > , 4 : PR I NTtt 1 , " PERSON 

A-P: ": PSET (220, 115) , 4: PRINTttl , PP 

900 '***PONER LOS BARCOS*** 

910 PRESET (10, 130) : PRINTttl, "ELIGE N 

IVEL DE JUEGO (0-9) : "; 

920 X*=INK.EY*: IF X*="" THEN 920 ELS 
E IF X*<"0" OR X*>"9" THEN 920 ELSE 

PRINT#1 , X* 
930 FOR K=l TO 500: NEXT K 
940 LINE (10, 130) -(255, 140) ,4,BF:N=V 
AL(X*) 

950 PRESET ( 10, 130) : PRINTttl , "nivel : " 
: PRESET (50, 130) : PRINTttl, N 
960 Il=N*2+2: 12=1 1 : PSET (70, 130) ,4: P 
RINTttl, "cuadros: ": PSET (125, 130) ,4: P 
RINTtt 1,11 

970 LINE(0, 140) -(255, 191) , 10,BF:COL 
OR 1 

980 IF N=0 THEN PSET ( 10, 141 ) , 10: PRI 
NTttl,"DOS BARCOS DE UN CUADRO": GOTO 
1090 

990 PSET (0, 141) , 10: PRINTttl, " CUATRO 
BARCOS DE UN CUADRO" : PSET (0, 150) , 1 
0 

1000 ON N GOTO 1090,1010,1020,1030, 
1040, 1050, 1060, 1070, 1080 
1010 PRINTttl," UN BARCO DE DOS CUAD 
ROS": GOTO 1090 

1020 PRINTttl," DOS BARCOS DE DOS CU 
ADROS":GOTO 1090 

1030 PRINTttl," TRES BARCOS DE DOS I 
UADROS":GOTO 1090 

1040 PRINTttl," DOS BARCOS DE DOS CU 
ADROS Y UNO DE CUATRO": GOTO 1090 




— 



1050 PRINT#l„» UN BARCO DE DOS CUAD 
ROS , UNO DE TRES Y UNO DE CINCO":GG 
TO 1090 

1060 PRINTttl , " DOS BARCOS DE DOS CU 
ADROS, UNO DE TRES Y UNO DE CINCO" 
s GOTO 1090 

10^0 PRINTtt 1 , " UN BARCO DE DOS CUAD 
ROS , UNO DE TRES, UNO DE CUATRO Y U 
NO DE CINCO" : GOTO 1090 
1030 PRINTttl , " DOS BARCOS DE DOS CU 
ADROS, UNO DE TRES, UNO DE CUATRO 

Y UNO DE CINCO" 
1090 FOR K=l TO II 

1100 PRESET (10, 130) : PRINTttl, "ESCRIB 

E LETRA-NUMERO: " ; : GOSUB 4160 

1110 L1=L 1+150: L=L+10: L2=Ll+5: L3=L+ 

S 

1120 IF POINT (L2,L3> =12 THEN LINE (L 
l + l,L+l)--<Ll+9,L+9> , 10, BF: LINE «10, 1 
80) -(255, 19 i.) , i0,BFsK«K-Í: GOTti 1100 
1130 IF POINT (L2+10,L3) =12 AND POIN 
T<L2-10,L3)=12 THEN 1190 ELSE IF PO 
INT(L2,L3+10)=12 AND POINT (L2, L3-10 
)=12 THEN 1190 ELSE 1150 
1150 IF POINT(L2~10,L3>=12 AND POIN 
T(L2-20,L3)=12 AND POINT (L2-30, L3) = 
12 AND POINT (L2-40,L3) =12 AND POINT 
(L2-50,L3)=12 THEN 1190 

1160 IF POINT (L2+10,L3> =12 AND POIN 
T (L2+20, L3) =12 AND PO I NT í L2+30 , L3 ) m 
12 AND POINT (L2+40, L3) =12 AND POINT 
(L2+50, L3) =12 THEN 1190 
1170 IF POINT (L2, L3-10) =12 AND POIN 
T (L2. L3-20) =12 AND POINT (L2, L3-30) = 
12 AND POINT (L2, L3-40) =12 AND POINT 
(L2, L3-50) =12 THEN 1190 
1180 IF POINT (L2, L3+10) =12 AND POIN 
T (L2, L3+20) =12 AND POINT (L2, L3+30) = 
12 AND POINT ÍL2, L3+40) =12 AND POINT 
(L2, L3+50) =12 THEN 1190 ELSE 1200 
1190 LINE (10, 180) -(255, 191) , 10,BF:G 
OTO 1100 
1200 
F 

1210 
1220 
1 230 
1240 



LINE(Ll+l,L+l)-(Ll+9,L+9> , 12, B 



LINE (170, 180) -(255, 191) , 10, BF 
NEXT K 

L I NE ( 0 , 1 80 ) - ( 255 , 1 9 1 ) , 1 0 , BF 
PRESET (10,1 80 ) : COLOR 1 5 : PR I NT# 
1 .."ESTOY COLOCANDO MIS BARCOS" : PLAY 
" VI 5L6407CDEFGABBAGFEDC" 
1250 FOR F=0 TO 9 
1260 FOR C=0 TO 9 
1270 T*(F,C)="V" 
1280 NEXT C 








1290 NEXT F 

1300 W=4:W1=0:W2=0: W3=0:FOR K=0 TO 

19:T2*(K)="V":NEXT K 

1310 FOR K=l TO II 

1320 IF N=0 THEN GOSUB 3270 

1 330 ON N GOSUB 3270 ,3110,31 30 , 3 1 50 

,3170,3190,3210, 3230 , 3250 

1340 NEXT K 

1350 LINE (0, 180) - (255, 191 ) , 10, BF 

1 360 PRESET (10,1 80 ) : PR I NTtt 1 , " YA PUE 

DE EMPEZAR EL JUEGO": COLOR 1 

1370 FOR K=l TO 300: NEXT K 

1380 '«♦♦EMPIEZA EL JUEGO*** 

1390 LINE(0, 140) -(255, 190) , 10, BF 

1400 IF Z*<>"" THEN 1440 

1410 PSET(10, 150) , 10:PRINT#1, "ESCRI 

BE TU NOMBRE: "; 

1420 Y*=INKEY$: IF Y*="" THEN 1420 E 
LSE IF ASC(Y*)=13 THEN 1440 
1430 BEEP: PRINT#1 , Y$; : Z*=Z$+Y$: IF L 
EN(Z*><7 THEN 1420 

1440 PSET(10, 170) , 10: PRINTttl, "¿QUIE 

N JUEGA PRIMERO? O-P: " ; 

1450 X*=INKEY*:IF X*="" THEN 1450 E 

LSE IF X*<>"0" AND X*<>"P" THEN 145 

0 

1460 PRINT#1, X* 

1470 COLOR 15: PSET ( 150, 130) , 4: PRINT 

#1, "JUEGA: ": COLOR 1 

1480 IF X$="0" THEN 2010 

1490 :, ***JUEGO DE LA PERSONA*** 

1500 I NTERVAL OFF: S=0: COLOR 15: LINE 

( 200 , 1 30 ) - ( 255 , 1 39 ) , 4 , BF : PSET ( 200 , 1 

30) ,4:PRINT#1, Z*: TI ME=0: COLOR 1 

1510 LINE(0, 140)-(255, 191) , 10,BF:Ku 

Y(l) ON 

1520 PSET (10, 150) , 10:PRINT#1, "ESCRI 
BE LETRA-NUMERO: " ; 
1530 GOSUB 4160:L1=L1+10:L=L+10 
1540 C=VAL(Y*) :F=ASC(X*)-65:KEY(2)u 
FF 
1550 
1 560 



THEN GOSUB 1640 
□R T$(F,C)="H" 
1510 



IF T*(F,C)="B" 
IF T*(F,C)="T" 
OR T*(F,C)="A" THEN 
1570 GOSUB 2750 

1580 LINE(0, 140) -(255, 191) , 10,BF:TP 
=TP+INT (TIME/50) : T$ <F, C) ="Á" : GOTO^ 
10 

1 590 PLAY " V 1 0O3FEGACB " : PSET (10,1 70 ) 
, 10: PRINT#1 , "TOCADO "; "TOCADO ";".o 
CADO "; "TOCADO " : T* (F, C) ="T" : FOR K= 
1 TO 2000: NEXT 

1600 LINE(Ll + l,L+l)-(Ll+9,L+9) , 1 , BF 
1610 PP= 1 00+PP- I NT ( T I ME/ 50 ) -TP 
1620 COLOR 15: LINE (220, 115)- ( 




OOi~ii~ OQi~lQC 
I l\LO\/ /l « 



T*(F+l,C) 



4) , 4,BF:PSET(220, 115) , 4: PRINT#1 , PF". 
TP=0: COLOR 1 

1630 11=11-1: IF 11=0 THEN 4210 ELSE 
20 1 0 

1640 -Rutinas en donde el ordenador 
comprueba si sus barcos son tocaau 
s o hundidos 
1650 IF F=0 THEN 1670' 

1660 IF T*(F-1,C)="T" OR T*(F-1,C>= 
"B" THEN 1770 
1670 IF F=9 THEN 1690 
1680 IF T*(F+1,C)="T" OR 
" B" THEN 1770 
1690 IF C=0 THEN 1710 

1700 IF T*(F,C-1)=-'T" OR T*(F,C-1>= 

"B" THEN 1770 

1710 IF C=9 THEN 1730 

1720 IF T*(F,C+1)="T" OR T* <F, C+l > 

" B" THEN 1770 

1 730 T* ( F , C ) = " H " : PP=PP+5k 

1740 PLAY"V12L10O7GFEDCBAL4C" 

1 750 PSET ( 1 0 , 1 70 ) , 10: PR INT# 1 , " HUND * 

DO HUNDIDO HUNDIDO HUNDIDO" : FOR K=l 

TO 20003 NEXTK 

1760 RETURN 1600 

1770 FOR K«5 TO 2,., 

1780 IF J2*(K)=STR*(F)+STR*(C) THEN 
T2*(K)="0" 

1790 NEXT K 

1800 ON N GOTO 1810,1820,1830,1840, 

1850, 1860, 1870, 1880, 189» 

. 310 SCREEN 1:PRINT"RUTINA MAL EN L 

A LINEA: 1800" : PRINT: LIST 1800 

. 320 W=5: Wl=6: GOSUB 1900: RETURN 159 

0 

. 330 W=5:W1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1 900 : RETURN 1 590 

. 340 W=5:W 1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1900: W=9:W1 =10: GOSUB 19008 ftfclu 
rvN 1590 

1850 W=5:W 1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1 900 : W=9 : W 1 = 1 2 : GOSUB 1 900 : RETUR 
N 1590 

1860 W=5:W 1=6: GOSUB 1900: W=7: W 1=9: G 
OSUB 1900: W=10:W1 =14: GOSUB 1900: RET 
URN 1590 

1870 W=5: W 1=6: GOSUB 1900: W=7: W1=B: G 
OSUB 1900: W=9:W1=11: GOSUB 1900: W= 12 
:W1= 16: GOSUB 1900: RETURN 1590 
1880 W=5:W1=6: GOSUB 1900: W=7: Wl=9: G 
OSUB 1900: W=10: Wl=13: GOSUB 1900: W=l 
4: Wl=18: GOSUB 1900: RETURN 1590 
1890 W=5: W 1=6: GOSUB 1 900 : W=7 : W 1 =8 : G 
OSUB 1900: W=9: Wl=l 1 : GOSUB 1900: W= 12 
: Wl=15: GOSUB 1900: W= 16: W 1=20: GOSUB 



1920 
1930 
1 940 
1950 
1960 
1 970 
1980 
1990 
2000 
2010 



THEN W3=W3+1 



1900: RETURN 1590 
1900 W2=W:W3=W-1 
1910 FOR K=W TO Wl 
IF T2*(K)="0" 
NEXT K 

IF W30W1 THEN RETURN 
W=W2 

FOR K=W TO Wl 
T2* <K) ="H" 
NEXT K 
RETURN 1730 

? ***JUEGA EL ORDENADOR*** 
COLOR 1 5 : L I NE ( 200 , 1 30 > - ( 255 , 1 3 
9), 4, BF: PSET (200, 130) ,4:PRINT#1, "M 
S X" : TIME=0: COLOR 1 

2020 LINEC0, 140) -(255, 191) , 10, BF 
2030 PSET (10,1 50 ) , 1 0 : PR I NT# 1 , " ESTA 
ES MI RESPUESTA: " 

2040 F=H:C=Q:IF T1*(F,C)="H" THEN 2 
060 

2050 IF A>0 THEN 2450 

2060 F=INT (RND ( 1 ) * 10) 

2070 C=INT (RND (2) *10) 

2080 IF TI* (F, C) O" V" THEN 2060 

2090 L=C* 1 0+ 1 50 : L 1 =F* 1 0+ 1 0 : X<4">=CHP$ ( 

F+65) : Y*=STR$ (O 

2 1 00 PSET (10,1 60 ) , 1 0 : PR I NTtt 1 , " COORD 
ENADAS: " ; X*; "-" ; Y* 

2110 PSET (10, 170) , I0:PRÍNT#i, "AGUA- 
A, TOCADO-T, HUNDIDO-H: " : ON INTERVALO 
50 GOSUB 2980: I NTERVAL ON 
2120 Z 1$=INKEY$: IF Z1*=""THEN 2120 
2130 IF Z1*<>"A" AND Z1$<>"T" AND Z 
1*< >"H" THEN 2120 

2140 PSET (215, 170) , 10: PRINTtt 1 , Zl* 
L2=L+5:L3=Ll+5 
P=PO I NT ( L2 , L3 ) : GOSUB 2820 
IF Z1*="A''AND PO10 THEN 2200 
IF Z1*="H" AND PO-12 OR Z1$="T 
P<>12 THEN 2200 



2150 
2160 
2170 
2180 
" AND 



2190 IF Z1*="H" THEN 2210 ELSE 2310 
2200 PSET (10,1 80 ) , 1 0 : PR I NT# 1 , " i i NO 
ME ENGACES! ! ":LINE(10, 170) -(255, 179 
) , 10, BF: GOTO 2110 

2210 IF P(1X>12 AND P(1)<>1 AND P< 
2)<>12 AND P(2)<>1 AND P(3)<>12 AND 
P(3)< >1 AND P(4)<>12 AND P(4)<>1 T 
HEN 2300 

2220 IF P(i)Oi AND P(l)<>12 THEN 2 
230 ELSE 2240 

2230 IF P(2)=l AND P(6)<>1 AND P<6) 
<>12 THEN 2300 ELSE IF P(2)=l AND P 
(6)=1 AND P(0)<>1 AND P(0)<>12 THEN 
2300 ELSE IF P(2)=l AND P(6)=l AND 
P(0)=1 AND P(14)<>1 AND P(14)<>12 




DO 



■i 



THEN 2300 ELSE IF P(2)=l AND P<6)=1 

AND P(0)=1 AND P(14)=l THEN 2300 
2240 IF P(2)<>1 AMD P(2)012 THEN 2 
250 ELSE 2260 

2250 IF P(l)=l AND P(5)<>1 AND P<5) 
OI 2 THEN 2300 ELSE IF P(l)=l AND P 

(5) =1 AND P(9)<>1 AND P(9)<)12 THEN 
2300 ELSE IF P(l)=l AND P(5)=l AND 
P<9)=1 AND PC 13) OI AND P(13)0 12 

THEN 2300 ELSE IF P(l)=l AND P(5)=l 

AND P(9)=l AND P(13)=l THEN 2300 
2260 IF P(3X>1 AND P(3)012 THEN 2 
270 ELSE 2280 

2270 IF P<4)=1 AND P<8)<>1 AND P(8) 
OI 2 THEN 2300 ELSE IF P(4)=l AND P 
C8)=l AND PC 12) O I AND P(12)<>12 TH 
EN 2300 ELSE IF P(4>=1 AND P(8)=l A 
ND P(12)=l AND PC 16) OI AND PC 16) O 
12 THEN 2300 ELSE IF P(4)=l AND P(8 
)=1 AND P(12)=l AND P<16)=1 THEN 23 
00 

22S0 IF P(4)01 AND PC 4) O- 12 THEN 2 
290 ELSE 2200 

2290 IF P(3)=1AND P(7X>1AND P(7)<> 
12THEN 2300ELSE IF ¡?C3)=1AND P(7)=l 
AND P ( 1 1 ) < > 1 AND P < 1 1 ) < > 1 2THEN 2300E 
LSEIF PC3)=1AND P(7)=1AND P(U)=1AN 
D P ( 1 5 ) < > 1 AND P ( 1 5 ) < > 1 2THEN2300ELSE 

IF P(3)=1AND P(7)=1AND PC11)=1AND 
P(15)=1THEN 2300ELSE 2200 
2300 T1*(F,C>="H":G0T0 2650 
2310 IF Z1*="T" THEN 2340 
2320 T1*(F,C)="A" 

2330 LINE(L+l,Ll+l)-(L+9,Ll+9) , 15, B 
F: TM=TM+INT (TIME/50) : GOTO 1500 
2340 IF PCI) O- 12 AND PCI) OI AND P( 
2) O- 12 AND P(2)01 AND PC 3) OI 2 AND 
P(3X>1 AND PC4)012 AND PC4)01 T 
HEN 2200 

2350 IF PCI) O I AND PCI) O 12 THEN 2 
360 ELSE 2370 

2360 IF P(2)=l AND PC6)01 AND P<6) 
O- 12 THEN 2200 ELSE IF P<2)=1 AND P 

(6) =1 AND P(0)O1 AND PC0)O12 THEN 
2200 ELSE IF P<2)=1 AND P(6)=l AND 
PC0)=1 AND PC 14) OI AND PC14)012 

THEN 2200 ELSE IF P(2)=l AND P(6)=l 

AND P(0)=1 AND p(14)=l THEN 2200 
2370 IF P(2X>1 AND P(2)<>12 THEN 2 
380ELSE 2390 

2380 IF P(l)=l AND P(5X>1 AND P(5) 
<>12 THEN 2200 ELSE IF P<1)=1 AND P 
(5)=1 AND P<9X>1 AND F(9)<>12 THEN 
2200 ELSE IF P(l)=l AND P(5)=l AND 
P<9)=1 AND PC 13) OI AND P(13X>12 



THEN 2200 ELSE IF PC1)=1 AND P ( 5 ) = 1 

AND P(9.)=l AND PC13)=1 THEN 2200 
2390 IF PC3)01 AND PC3)<>12 THEN 2 
400 ELSE 2410 

2400 IF P(4)=l AND P(8)0 1 AND P(8) 
OI 2 THEN 2200 ELSE IF PC4)=1 AND P 
(8)=1 AND PC 12) OI AND PC12X>12 TH 
EN 2200 ELSE IF P<4)=1 AND P<8)=1 A 
ND PC12)=1 AND PC 16) OI AND PC16) <> 
12 THEN 2200 ELSE IF PC4)=1 AND PC8 
)=1 AND P C 12) =1 AND P(16)=l THEN 22 
00 

2410 IF PC4)01 AND PC4)012 THEN 2 
420 ELSE 2430 

2420 IF PC3)=1 AND PC7)<>1 AND P (7) 
OI 2 THEN 2200 ELSE IF P(3)=l AND P 
C7)=l AND PC 11) OI AND PC 11) 012 TH 
EN 2200 ELSE IF PC3)=1 AND PC7)=1 A 
ND PC11)=1 AND PC 15) OI AND P(15)<> 
12 THEN 2200 ELSE IF PC3)=1 AND PC7 
)=1 AND P C 1 1 ) = 1 AND P(15)=l THEN 22 
00 

2430 TI* (F, C) ="T" : IF A=0THEN V=C 
2440 GOTO 2650 

2450 ? ***BUSCA COORDENADAS CUANDO H 
AY ALGUNO TOCADO*** 

2460 ON INTER VAL=500 GOSUB 2640: I NT 
ERVAL ON 

2470 IF COV THEN 2550 

2480 IF (F-1X0 THEN 2510 ELSE F=F~ 
1 

2490 IF T1*CF,C)="V" THEN 2090 
2500 IF T1*(F,C)="T" THEN 2480 
2510 F=H:C=Q 

2520 IFCF+1) >9THEN 2550 ELSE F=F+1 
2530 IF T1*CF,C)="V" THEN 2090 
2540 IF T1*CF !1 C)="T" THEN 2520 
2550 F=H:C=Q 

2560 IFCC+1) >9THEN 2590 ELSE C=C+1 
2570 IF T1*CF,C)="V" THEN 2090 
2580 IF T1*CF,C)="T" THEN 2560 
2590 F=H:C=Q 

2600 IF CC- 1 ) <0THEN 2480 ELSE C=C-1 
2610 IF T1*CF,C)="V" THEN 2090 
2620 IF T1*CF ;I C)="T" THEN 2600 
2630 GOTO 2470 

2640 A=0: INTERVAL OFF: RETURN 2060 
2650 IF T1*(F,C)~"H" THEN PO=PO+50 
2660 PO=PO+ 100-1 NT (TIME/50) -TM: LINE 
(L+l,Ll+l)-(L+9 í Ll+9) , 1, BF: LINE ( 100 
, 1 15) - C 135, 124) ,4,BF:PSET(95, 115) ,4 
: COLOR 15: PRINT#1,PO:TM=0: COLOR 1 
2670 H=F:Q=C: 12=12-1: IF 12=0 THEN42 
10 

2680 IF A=0 THEN 2730 



OR P(l)=15 THEN TI* 



ÜR P(2)=15 THEN TI* 



2690 IF P(l)=10 
(F, C-l ) = " A" 
2700 IF P(2)=10 
<F,C+1)="A" 

2710 IF P(3)=10 OR P(3)=15 THEN TI* 
(F-1,C)="A" 

2715 IF F=9 THEN 2730 

2720 IF P(4)=10 OR P ( 4 ) = 1 5 THEN TI* 
(F+1,C)="A" 

2730 IF T1*(F,C)="H" THEN A=0 ELSE 
A=A+1 

2740 GGTO 1500 

PSETU0, 170) , 10 
FÜR Kmi Tü 6 
PRINTttl , "AGUA "; 
FÜR 1=1 TO 5: BEEP: NEXT I 
NEXT K 

LINE(Ll+l,L+l)-(Ll+9,L+9> , 15, B 



2750 
2760 
2770 
2780 
2790 
2800 
F 

2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2925 
2930 
2940 

2950 P(15)=POINT(L2,L3-40) 
2960 P(16)=POINT(L2,L3+40) 
2970 RETURN 

2980 S=S+1 : LINE (230, 181 ) - (255, 191 ) , 
10,BF:PSET(175, 181) , 10: PRINT#1 , "TIE 
MPO:";S:IF S=10 THEN 2990 ELSE RETU 
RN 

2990 COLOR 15: S=0: LINE (100, 115) -(13 

5, 124) ,4,BF:PO=PO+10:PSET(95 !1 115) ,4 

: PR I NTtt 1 , PO : COLOR 1 : RETURN 

3000 PSET ( 1 0 , 1 84 ) , 1 0 : PR I NT# 1 , "MI CO 

NSEJO AL AZAR ES : "; 

3010 F=INT (RND (3) * 10) 

3020 C=INT(RND(4) *10) 

3030 IF T*(F,C)="T" OR T*(F,C)="H" 
ÜR T*(F,C)="A" THEN 3010 
3040 Xl*=CHR*(F+65) : Y1*=STR* (C) 
PRINTttl, XI*; Yl* 
KEY ( 1 ) OFF : KEY ( 2 ) ON : RETURN 1 520 
L=F*10+10 
L1=C*10+10 



RETURN 

P(1)=POINT(L2-10,L3> 

P(2)=POINT(L2+10,L3) 

P<3) =POINT <L2, L3-10) 

P(4)=POINT(L2,L3+10) 

P(5)=POINT(L2-20,L3) 

P ( 6 ) =PO I NT ( L2+20 , L3 ) 

P(7)=POINT(L2,L3-20) 

P(8)=POINT(L2,L3+20) 

P ( 9 ) =PO I NT ( L2-30 , L3 ) 

P(0)=POINT(L2+30,L3) 

P(ll)=POINT(L2,L3-30) 

P ( 12) =POINT (L2, L3+30) 

P(13)=POINT(L2-40,L3) 

P(14)=POINT(L2+40,L3) 



3050 
3060 
3070 
3080 



3090 PSET ( 175, 150) , 10: PRINTttl , XI*; " 
-" ; Yl* 

3100 KEY (2) OFF: RETURN 1550 
3105 'Rutinas mediante las cuales e 
1 ordenador coloca sus barcos 
3110 IF K<5 THEN GOSUB 3270: RETURN 
GOSUB 3280: RETURN 1350 
IF K<5 THEN GOSUB 3270: RETURN 
GOSUB 3280: GOSUB 3280: RETURN 1 



3120 
3130 
3140 
350 
3150 
3160 



THEN GOSUB 3270: RETURN 



IF K<5 

GOSUB 328""J: GOSUB 3280: GOSUB 32 
80: RETURN 1350 

3170 IF K<5 THEN GOSUB 3270: RETURN 
3180 GOSUB 3280: GOSUB 3280 : GOSUB 33 
00: RETURN 1350 

3190 IF K<5 THEN GOSUB 3270: RETURN 
3200 GOSUB 3280: GOSUB 3290:GÜ3UB 33 
10: RETURN 1350 

3210 IF K<5 THEN GOSUB 3270: RETURN 

3220 GOSUB 3280: GOSUB 3280: GOSUB 32 

90: GOSUB 3310: RETURN 1350 

3230 IF K<5 THEN GOSUB 3270: RETURN 

3240 GOSUB 3280: GOSUB 3290: GOSUB 33 

00: GOSUB 3310: RETURN 1350 

3250 IF K<5 THEN GOSUB 3270: RETURN 



60 GOSUB 



280: GOSUB 32 



90: GOSUB 3300: GOSUB 3310: RETURN 135 

0 

3270 GOSUB 3320: GOSUB 3370: RETURN: R 
EM RUTINA DE FORMAR BARCOS DE UN CU 
ADRO 

3280 B=l: GOSUB 3320: GOSUB 
,C)="B": RETURN: REM RUTINA 

BARCOS DE DOS CUADROS 
3290 B=2: GOSUB 3320: GOSUB 
, C)="B": RETURN: REM RUTINA 
AR BARCOS DE TRES CUADROS 
3300 B=3: GOSUB 3320: GOSUB 
,C)="B": RETURN: REM RUTINA 
AR BARCOS DE CUATRO CUADROS 
3310 B=4: GOSUB 3320: GOSUB 3460 : T* (F 
, C)="B": RETURN: REM RUTINA PARA FORM 
AR BARCOS DE CINCO CUADROS 
3320 F=INT (RND (6) #10) 
C=INT(RND(7) *10) 
IF T*(F !I C)="B" THEN 3320 
E=INT (RND (-TIME) *4+l) 
RETURN 

IF F=0 THEN 3390 
IF T*(F-1,C)="B" 



3460:T*(F 
DE FORMAR 

3460:T*(F 
PARA FORM 

3460: T*(F 
PARA FORM 



3330 
3340 
3350 
3360 
3370 
3380 
270 
3390 
3400 
270 



THEN RETURN 



IF C=0 THEN 3410 
IF T*(F,C-1)="B" 



THEN RETURN 3 



I 



3410 IF F=9 THEN 3430 

3420 IF T*(F+1,C)="B" THEN RETURN 3 
270 



3430 

3440 

270 

3450 

3460 

3470 

HACIA 



IF C=9 THEN 3450 
IF T*(F,C+1)="B" 



THEN RETURN 3 



T*(F,C)="B":RETURN 
ÜN E GOTO 3470,3640,3810,3980 
FÜR K=l Tü B: REM FORMA BARCOS 
ARRIBA 



THEN 4150 



3480 IF F<B THEN 4150 
3490 IF T$ (F-K, C) ="B" 
C=0 THEN 3530 
T$(F,C-1)="B" THEN 4150 
T*(F~K,C-1)="B" THEN 4150 
C=9 THEN 3560 
T*(F,C+1)="B" THEN 4150 
T*(F-K, C+l ) ="B" THEN 4150 
F=B THEN 3580 

T$(F-(B+1) ,C)="B"THEN 4150 
F=9 THEN 3600 
T*(F+1,C)="B" THEN 4150 
NEXT K 

W=W+1 : T2*(W) =STR*(F) +STR* (C) 
FOR K=1T0 B:T*<F-K,C)="B":W=W+ 
» ( W ) =STR* ( F-K ) +STR* ( C ) : NEXT 



3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
WT 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



FORMA BARCOS 



3630 RETURN 
3640 FOR K=l TO B: REM 
HACIA LA DERECHA 
3650 IF CX9-B) THEN 4150 
3660 IF T*(F,C+K)="B" THEN 4150 
3670 IF F=0 THEN 3700 
3680 IF T$ (F-l , C) ="B" THEN 4150 
3690 IF T*(F-1,C+K)="B" THEN 4150 
3700 IF F=9 THEN 3730 
3710 IF T*(F+1,C)="B" THEN 4150 
3720 IF T*(F+1,C+K>="B" THEN 4150 
3730 IF C=0 THEN 3750 
3740 IF T*(F,C-1)="B" THEN 4150 
3750 IF C=(9-B) THEN 3770 
3760 IF T$ (F, C+ (B+l ) ) ="B"THEN 4150 
3770 NEXT K 

3780 W=W+1 : T2$ (W) =STR* (F) +STR* (C) 
3790 FOR K=1T0 B : T* ( F , C+K > = " B " : W=W+ 
1 : T2* <W) =STR* <F) +STR* (C+K) : NEXT 
3800 RETURN 

3810 FOR K=l TO B: REM FORMA BARCOS 
HACIA ABAJO 

3820 IF FX9-B) THEN 4150 

3830 IF T*(F+K,C)="B" THEN 4150 

3840 IF C=0 THEN 3870 

3850 IF T*(F,C-1)="B" THEN 4150 

3860 IF T*(F+K,C-1)="B" THEN 4150 

3870 IF C=9 THEN 3900 

3880 IF T*(F,C+1)="B" THEN 4150 



3890 IF T*(F+K,C+1)="B" THEN 4150 

3900 IF F=0 THEN 3920 

3910 IF T*(F-1,,C>="B" THEN 4150 

3920 IF F=(9~B> THEN 3940 

3930 IF T*(F+(B+1) ,C)="B"THEN 4150 

3940 NEXT K 

3950 W=W+ 1 : T2* ( W ) =STR* ( F ) +STR* ( C ) 
3960 FOR K>1T0 B: T$ (F+K, C) ="B" : W=W-f 
1 : T2* (W) =STR* (F+K) +STR* (C) : NEXT 
3970 RETURN 

3980 FOR K=l TO B: REM FORMA BARCOS 

HACIA LA IZQUIERDA 

3990 IF C<B THEN 4150 

4000 IF T*(F,C-K)="B" THEN 4150 

4010 IF F=0 THEN 4040 

4020 IF T*(F-1,C)="B" THEN 4150 

4030 IF T*(F-1,C-K)="B" THEN 4150 

4040 IF F=9 THEN 4070 

4050 IF T*<F+1, C) ="B" THEN 4150 

4060 IF T*(F+1,C-K)="B" THEN 4150 

4070 IF C=9 THEN 4090 

4080 IF T* (F, C+l ) ="B" THEN 4150 

4090 IF C=B THEN 4110 

4100 IF T$ (F, C- (B+l ) ) ="B"THEN 4150 

4110 NEXT K 

4 1 20 W=W+ 1 : T2*( W ) =STR* ( F ) +STR* ( C ) 
4130 FOR K=1T0 B : T$ ( F , C-K ) = " B " : W=W+ 
; : T2* (W) =STR* (F) +STR* (C-K) : NEXT 
4140 RETURN 

4150 ON B GOTO 4152,4154,4156,4158 
4152 RETURN 3280 
4154 RETURN 3290 
4156 RETURN 3300 
4158 RETURN 3310 

4160 X*=INKEY*:IF X*=""THEN 4160 EL 
SE IF X*<"A" OR X*>"J" THEN 4160 EL 
SE PRINT#1,X*; 

4170 Y*=INKEY*:IF Y*=""THEN 4170 EL 
SE IF Y*<"0" OR Y$>"9" THEN 4170 EL 
SE PRINTttl, "-" ; Y* 
4180 L= (ASC (X*) -65) *10 
4190 L1=VAL <Y$) *10 
4200 RETURN 

4210 I NTERVAL OFF: IF 11=0 THEN PP=P 
P+200 ELSE PO=PO+200 

4220 LINEÍ0, 140) -(255, 191) , 10,BF:PR 
ESET(0, 145) , 10:PRINT#1,Z$; " HA OBTE 
NIDÜ";PP; "PUNTOS" 

4230 PSET ( 0 , 1 60 ) , 1 0 : PR I NT# 1 , " M S X 

HA OBTENIDO" ;PO; "PUNTOS" 
4240 PSET (15,175), 10: PR I NT# 1 , " PULSA 

LA BARRA ESPACI ADORA" 
4250 IF STRIG(0)=-1 THEN 4260ELSE 4 
250 

4260 CLOSE#l:SCREENl:WIDTH 30:KEY O 



í 



FF: LOCATE 0, 5: PRI NT "¿QUIERES SEGUIR 

JUGANDO (S/N) ?" ; 
4270 X*»INKEY*:ÍF X*="" THEN 4270 E 
LSE IF X*<>"S"AND X*<>"N" THEN 4270 
4280 PRINT X*:IF X*="N"THEN 4340 
4290 PRINT: PRI NT "¿VA A JUGAR EL MIS 
MOÍS/N)?" 



4300 X*=INKEY*: IF X*="" THEIM4300 
4310 IF X*<>»S" AND X*<>»N"THEN 430 
0 

4320 IF X$="N" THEN RUN 
4330 GOTG 110 
4340 END 



TEST DE LISTADO = 

Para utilizar el Test de Listados que ofrecemos al final de cada 
que cargar en el ordenador el Programa correspondiente 



en nuesxro numero i u, ae ociuore , pag. ¿a. 
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- 186 


1 380 




58 


1810 


— 1 ¿~ 


2240 


- 81 


2670 




7 


'1 l m A t"A 

1 00 


•i 4 cr 

- 1 1 5 


520 


-171 


950 


- 1 20 


1390 




27 


1820 


-126 


2250 


- 60 


2680 




104 


H ■{ t~A 

1 10 


- 1^.4 


530 




960 


-151 


1 400 




184 


1 83.0 


— 40 


2260 


-123 


2690 




254 


1 ¿So 


t-> en 

— ¿.¿.a 


540 


-186 


970 


- 37 


1410 




144 


1 840 


-212 


r ~i o —y s".t 

2270 


— 100 


2700 




255 


1 30 


- 89 


cr cr /".< 

550 


-191 


980 


-25 j. 


4 A ^ *~A 

1420 




4 t i 

1 66 


1 850 


-214 


2280 


- 65 


2710 


— 


2 


4 A /1< 

140 


~ ó 1 


560 


- 36 


990 


- 1 35 


1 4^.0 




221 


1 860 


-216 


2290 


-221 


2715 


— 


118 


i cr .-.( 

1 50 


-229 


570 


-159 


1000 


- 86 


1440 




250 


1870 


-136 


2300 


- 95 


2720 


-- 




4 / /H 

160 


-212 


580 


-204 


1010 


-215 


1 450 




48 


1 880 


- 142 


23 1 0 


-214 


2730 


— 


31 


4 — 7 t~.t 

1 70 


H A CT 

-145 


5^0 


- 0 


1 020 


-109 


1460 




1 10 


1890 


- 66 


2320 


- 35 


2740 


— 


120 


180 


'-203 


600 


-206 


1030 


- 197 


1 470 




234 


1900 


-221 


2330 


- 42 


2750 


— 


86 


1 90 


4 /i cr 

- 145 


610 


- 68 


1040 


- 15 


1480 




82 


1910 


-116 


2340 


_ 2 1 


2760 




190 


**! i'A t~A 


T / 

— JO 


620 


- 186 


1 050 


/-% cr f% 

-252 


4 a r~> t'.i 

1 490 




cr r~i 

58 


1920 


- 20 


2350 


a cr 

— 45 


2770 


— 


143 


2 1 0 


4 a nr 

- 145 


630 


-191 


1060 


-146 


1500 






1 930 


-206 


2360 


-148 


....... r . . 

2780 




1 r-,—r 

1 87 


220 


- 94 


640 


-146 


1070 


-113 


1510 




26 


1940 


-227 


2370 


- 87 


2790 




206 


230 


- 54 


650 


-159 


1080 


-240 


1 520 




159 


1 950 


-207 


2380 


-172 


2800 




71 


240 


-103 


660 


-204 


1090 


- 33 


1530 




227 


1960 


-116 


2390 


-129 


28 1 0 




142 


250 


-159 


670 


-194 


1 100 


-158 


1540 




250 


1970 


-193 


2400 


-212 


2820 




20 


260 


- 23 


680 


-206 


1110 


-112 


1550 




97 


1980 


-206 


2410 


-171 


2830 




20 


270 


-205 


690 


-189 


1120 


-130 


1560 




60 


1990 


- 1 00 


2420 


-196 


2840 




22 


280 


-145 


700 


-184 


1130 


- 90 


1570 




99 


2000 


- 58 


2430 


-158 


2850 






290 


-196 


710 


- 25 


1150 


-197 


1580 




49 


2010 


- 77 


2440 


-251 


2860 




34 


300 


-145 


720 


- 192 


1160 


-192 


1590 




• 11 


2020 


- 28 


2450 


- 58 


2870 




34 


310 


-170 


730 


-156 


1 170 


-197 


1600 




59 


2030 


- 3 


2460 


-181 


2880 




36 


320 


-145 


740 


- 37 


1 180 


- 93 


1610 




240 


2040 


- 37 


2470 


-233 


2890 




36 


330 


- 61 


750 


-141 


1190 


-109 


1620 




133 


2050 


- 78 


2480 


- 64 


2900 




48 


340 


-204 


760 


-206 


1200 


- 68 


1630 




90 


2060 


- 0 


2490 


22 1 


2910 




38 


350 


-159 


770 


-213 


1210 


-236 


1640 




58 


2070 


-254 


2500 


- 98 


2920 




48 


360 


-212 


780 


-204 


1220 


-206 


1650 




69 


2080 


-174 


2510 


- 58 


2925 




48 


370 


- 57 


790 


- 98 


1230 


- 68 


1660 




90 


2090 


- 0 


2520 


-109 


2930 




60 


380 


- 37 


800 


-184 


1240 


- 89 






98 


2100 


- 52 


2530 


-221 


2940 




60 


390 


-160 


810 


-192 


1250 


-187 






88 


2110 


- 19 


2540 


-138 


2950 




62 


400 


- 7 


820 


- 1 50 


1260 


-184 


1690 




106 


2120 


-105 


2550 


- 58 


2960 




62 


410 


-112 


830 


-145 


1270 


- 7 


1700 




90 


2130 


-255 


2560 


-141 


2970 




142 


420 


- 28 


840 


-206 


1280 


-198 


1710 




135 


2140 


-254 


2570 


-221 


2980 




107 
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!990 -: 



3000 
30 1 0 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3 1 00 
3105 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 



- 67 



- 0 

- 30 

- 6 

- 52 
-228 
-151 
-197 

- 85 



■ 58 
■235 
■152 
■235 
• 73 
■235 
■250 



- 14 



3190 


-235 


^400 


j— ^_ 


3200 


- 34 






3210 


-235 






3220 


-211 


3430 


— 70 

/ >-' 


^2^0 


-235 


^¡440 


— 2l3 1 


3240 


-231 


^450 


- 187 

X tJ / 


3250 


-235 






3260 


-152 


347(7) 




3270 


-173 


•-'tai:' 


— A.Q 


3280 


-177 


•_■ t / J;' 





3290 


-178 


•-• -1 YJ VJ 


— f Al 


3300 


-179 


3510 


-176 


3310 


-180 


3520 


-237 


3320 


- 5 


3530 


-180 


3330 




3540 


-175 


3340 


-106 


3550 


-236 


3350 


-169 


3560 


-243 


3360 


-142 


3570 


- 52 


3370 


- 4 


3580 


-224 


3380 


-202 


3590 


-175 


3390 


- 21 


3600 


-206 



3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 



- 91 
-226 

142 
■ 35 
■137 
■232 

- 59 
■176 
-236 

- 98 
■175 
-235 
- 1 06 
-176 

- 12 

- 51 
-206 

- 91 
-224 
-142 

- 35 



3820 


-140 


A ,-.< -T .-< 

4 $í> •_■}£> 


i'J7"J 


4200 


-142 


3830 


-232 


4040 


-183 


4210 


-121 


3840 -227 


41950 


4 -ir- 

-175 


4220 


-213 


3850 


-176 


4060 


-2.^.6 


4230 


-203 


38o0 




n ,-t — t ,-< 

4070 


-200 


4240 


-102 


3870 


- 10 


4080 


-175 


4250 


-177 


•— • O O YJ 


— 1 7S 


4090 


- 5 


4260 


-158 


3890 


-235 


4100 




4270 


- 80 


3900 


- 24 


4110 


-206 


4280 


-187 


3910 


-176 


4120 


- 91 


4290 


- 15 


3920 


-186 


4 1 30 


-226 


4300 


-143 


3930 


- 51 


4140 


-142 


4310 


- 34 


3940 


-206 


4150 


- 72 


4320 


-236 


3950 


- 91 


4152 


-120 


4330 


cr 


3960 


-224 


4154 


-130 


4340 


-129 


3970 


-142 


4156 


-140 






3980 


- 35 


4158 


-150 






3990 


- 46 


4160 


- 5 






4000 
4010 


-144 


4170 
4180 


-109 
- 59 


TOTAL: 


4020 


-176 


4190 


-217 


58216 




Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 
a partir del número 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. I 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos 
MANHATTAN TRANSFER, SJL 



¿"ORMA DE PAGO: Mediante talón ban- 

cario a nombre de: 

MANHATTAN TRAN8FER, SJL 
C/. Roca i Batlle, 10-18 
08083 Barcelona 
Muy importante: para evitar retrasos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo , 
distritos postales. Gracias 



España por corree 
Europa correo normal 
Europa por avión 
América por avión 



nal 



Ptas. 1.780,- 
Ptas. a.ooo - 
Ptas. a.BOO,- 
Ptas.a8USA$ 



PVP 275 PTAS. 



I 



DE PROGRAMAS ] 



AQUI HALLARAS TODl 
EL SOFTWARE DEL 
MERCADO EN MSX. 
NO TE LO PIERDAS. 
Programas de juegos 
utilidad, educativos, 
gestión. Una guía 
completa con más 
de 100 títulos. 
Cassettes, cartucho: 
diskettes, tarjetas y 
libros. 

Además todas las 
empresas de hardware 
tware con sus 
¡iones y teléf < 
In número 

imprescindible para el 
usuario MSX. 
YA ESTA EN TU 
QUIOSCO 
MSX CLUB ESPECIAL 
SOFTWARE algo FUERA 
~ SERIE. 





DE SERI 



■ 



ilííM 





1 20 TECLA*= " 1 234567S90 " -<-CHR* ( 9 ) +CHR 
* ( 2T 7 > +CHR* ( 24 ) +CHR* (13) 
130 T*=INPUT*<1) : IF INSTP (TECLA*, T 
THEM PLAY "V10O2AO4": GÜTÜ 13 

0 

140 T= INSTR (TECLA*-, T*) : PLAY "V10C 
ÓL64AL4Q4" 

150 IF 7=14 THEN 1740 

160 IF T<12 THEN SCREEN 2,,0s IF T< 

8 OR T=ll THEN COLGR 1,12,12: CLS 

170 ON T GOSUB 280,370,460,580,730, 

880, 1040, 1160, 1230, 1300, 1370, 1510, 1 

590, 

180' GOTO 130 
190 ' 

200 ' 

W 

210 LOCATE 0,21: PRINT " « PULSE UN 

A TECLA PARA CONTINUAR » 

W 

220 A*= INKEY* : IF A*="" THEN 220 

230 BEEP: RETURN 

240 ' 

250 * 

260 " 

270 ' 

280 ■ Lineas horizontales 

290 ' 

300 FOR Y=0 TO 190 8TEP10 
310 L I NE ( 3 , Y ) - ( 253 , Y ) , 1 
320 NEXT Y: RETURN 
330 " 



340 
350 
360 
370 
380 
W 

390 
400 
410 
42í 
430 
440 
450 
460 
470 
W 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
W 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
W 

750 



FOR Y=0 TO 190 STEP 10 
LINE (3, Y) - (253, Y) , 1 
NEXT Y 

FOR X=3 TO 253 STEP 10 
LINE (X,0)-(X, 190) , 1 
NEXT X: RETURN 



Damero 



LINE (2,0)-(253, 192) ,6,B 
FOR Y=l TO 191 STEP20 
FOR X=3 TO 253 STEP 20 
LINE(X, Y)-(X+9, Y+9) , 1 , BF 
NEXT X,Y 

FOR Y=ll TO 171 STEP20 
FOR X=13 TO 233 STEP 20 
LINE(X, Y)-(X+9,Y+9) , 1 , BF 
NEXT X,Y: RETURN 



Circuí os 



FOR X=12 TO 72 STEP 12 



i f , /\ ubisili h u 



760 CIRCLE (128,96) , X, 1 
770 NEXT X 

780 FÜR X=6 Tü 30 STEP 6 
790 CIRCLE (30,30),X, 1 
800 CIRCLE (225, 161) , X, 1 
810. CIRCLE <30,161),X,1 
820 CIRCLE (225,30),X,1 
830 NEXT X: RETURN 
840 ' 
850 t 
860 ' 
870 » . 

880 ' Cuadrados 

890 » 



W 

900 FÜR X=0 TO 60 STEP 10 

910 LINE (X+60,X+60)-(195-X, 131-X) , 

l.B 

920 NEXT X 

930 FÜR X=0 TO 25 STEP 5 

940 LINE (X+0,X+0)~(60-X,60-X), 1 , B 

950 LINE (X+0, X+131) ~<60-X, 191-X) , 1 

»B 

960 LINE <X + 195,X+0)-(255-X,60-X) , 1 
f B 

970 LINE (X+195, X+131 ) - (255-X , 191-X 
) , 1,B 

980 NEXT X 
990 RETURN 
1000 ' 
1010 • 
1020 * 
1030 ' 

1040 ' Barras verticales de color 
1050 » 

W- 

1060 RESTORE 1110 

1070 FOR N=l TO 15: READ C 

1080 LINE (17*(N-1) ,0)-(17*N, 192) ,C 

9 BF 

1090 NEXT N 
1100 RETURN 

1110 DATA 1,4,12,6,13,5,2,8,3,9,14, 
7, 10, 11, 15 

1120 » 
1130 ' 
1140 ' 
1150 ' 

1160 ' Pantalla Azul 

1170 ' 

W- 

1180 COLOR 4,4,4: 
1190 ' 
1200 ' 
1210 ' 



CLS: RETURN 



Pantalla Verde 



1220 ' 
1230 ' 

1240 7 

W- 

1250 COLOR 12,12,12: CLS: RETURN 
1260 ' 
1270 9 
1280 •- 
1290 ■ 

1 300 11 Pan talla Rosa 

1310 s 

W- 

1320 COLOR 6,6,6: CLS: RETURN 
1330 ' 
1340 ' 
1350 ' 
1360 ' 

1370 ' Mira de Ajuste 

1380 7 

«- 

1390 PRESET (0,0): DRAW "clr72br40r 

31br40r72d60bd20d31bd20d60172bl4013 

i b 1 401 72u60bu20u3 1 bu20u60 " 

1400 LINE (0,0)~(255, 191) , 1: LINE (0 

, 191 )~ (255,0) , la LINE (0,96) -(255, 96 

),1: LINE ( 128, 0) -( 128, 191 ), 1 

1410 FOR Y=4 TO 191 STEP 8: LINE (1 

26, Y)-(130, Y) , 1: NEXT Y 

1420 FOR X=4 TO 255 STEP 3: LINE (X 

,94)~(X,98) , ll NEXT X 

1430 FOR R=20 TO 60 STEP 40 

1440 CIRCLE (128,96),R,1 

1450 NEXT R 

1460 RETURN 

1470 ' 

1480 ' 

1490 7 

1500 ' 

1510 ' Fin del Programa 

i 52 0 7 

W- 

1530 SCREEN 3: COLOR 13,1,1: CLS: P 
RESET(82,80) : PR I NT# 1 , " F I N " : FOR 1= 
1 TO 2000: NEXT I 

1540 SCREEN 0,,1: WIDTH 37: COLOR 1 
2,1,1: KEY ON: CLOSE: CLEAR: END 
1550 ' 
1560 7 
1570 " 
1580 ' 
1590 ' 

1600 7 

W- 

1610 SCREEN 0: COLOR 12,1,1: KEY 
F 



Mena 




1620 LOCATE 12,0: PRINT »**# MENU * 
O* 

W ": PRINT 



1630 PRINT " 
ontal es 
t ical es 



1640 PRINT " 
s 

e Color 
la Azul " 
1650 PRINT " 
de 
o ja 



1. — Lineas Horiz 
2. — Lineas Ver 
3. — Trama 
4. — Damero 

5. — Círculos 

6. — Rectángulo 
7. — Barras d 
8. — Pantal 

9. — Pantalla Ver 
0. — Pantalla R 



< TAB > 

- Mira de ajuste" 
1660 PRINT " 
rucciones 
nú 

Fin del Programa" 
1670 LOCATE 8,21: PRINT »« SELECCIO 
NE OPCION » 
W " 



<REXURN> Inst 

<SELECT> Me 

< ESC > 



1680 LOCATE 18,23 

1690 GOTO 100 

1700 ■ 

1710 9 

1720 ' 

1730 ' 

1740 7 

1750 ' 



Instrucci ones 



1760 SCREEN 0a WIDTH 37: COLOR 12,1 
, 1 : KEY OFF 

1770 LOCATE 9,2: PRINT "♦♦ INSTRUCC 

IONES ++ 

": PRINT: PRINT: 

1780 PRINT: PRINT " Este progr 

ama genera once pantallas de reglaj 
e para efectuar los diferentes aju 
stes, tanto de imagen como de coló 
r, sobre monitores o televisores "; 
1790 PRINT" (uti 1 i zados como monitor 
es) enB/N o color.": GOSUB 200: CL 
S 

1800 LOCATE 0,3: PRINT: PRINT" 

Para los ajustes de imagen (anchu 
ra, altura y linealidad) se recom 
ienda tener ciertas nociones básica 
ssobre TV. " 

1810 PRINT: PRINT: PRINT" No s 

e recomienda actuar sóbrelos ajus 



te de color (crominancia 



, convergen 



cia y pureza) a no ser que seteng 



a bastante experiencia en este tipo 

de ajustes.": GOSUB 200: CLS 
1820 PRINT" Para los ajustes de 
imagen convie ne seguir el sigui 
ente orden:": PRINT: PRINT "1.- Gir 
ar el yugo para situar las lí n 
eas horizontales paralelas a los 

bordes de la pantal] a." 
1830 PRINT: PRINT"2.- Retocar la al 
tura, anchura, linea lidad gener 
al y linealidad supe rior hast 
a obtener círculos co rrectos 

II 

■ 

1840 PRINT: PRINT"Estos ajustes in-f 
luyen unos en otros: rep ítanse suces 
ivamente hasta lograrun buen resul 
tado. "; 

1850 PRINT" Al llevar a caboestos 
ajustes puede alterarse el sincron 
ismo vertical: corríjase si espr 

eciso. " 

1860 GOSUB 200: CLS: PRINT: PRINT "3 
.- Céntrese la imagen mediante la 
s aletas del yugo." 

1870 PRINT: PRINT "4.- Puede ser nec 
esario repetir algún ajuste segú 
n (3).": PRINT: PRINT "5.- Si la -fa 
lta de linealidad horizon tal si 
gue siendo acusada, retocar la 1 
inealidad horizontal." 
1880 PRINT: PRINT "6.- Retocar los 
imanes del yugo si las línea 

s verticales están muy curvadas 

II 

■ 

1890 PRINT: PRINT "7.- A justar el 
en-foque para obtener la mayor n 
itidez en el centro de la panta 
lia. " : GOSUB 200: CLS 
1900 LOCATE 9, 2: PRINT: PRINT: PRINT 
Para generar las diferentes 
pantallas de ajuste solo tiene"; 
1910 PRINT " que pulsar el n2 o la 
tecla correspondí ente, según el menú 
.": PRINT: PRINT " No es neces 

ario volver al menúpara selecciona 
r una nueva pantalla." 
1920 GOSUB 200 
1930 GOTO 1590 
1940 ' 
1950 ' 
1960 ' 
1970 ' 

1980 ' Presentación 

1990 * 

W- 




:f rt\uüi\m ti t~t 



2000 COLOR 6,1,3: SCREEN 2 
2010 OPEN "grp:" FOR OUTPUT AS#1 
2020 FOR 1=0 TO 2: PSET (52+I,30),l 
: PRINT #1," GENERADOR 

NEXT 

: FOR 1=0 TO 2: PSET (60+1, 70), 1: P 
RINT #1, " D E MIRAS 

": NFXT 



2030 FOR 1=0 TO 2: PSET (60+1,110), 
1: PRINT #1, " PARA TV 

": NEXT 

2040 FOR 1=0 TO 1: PSET ( 120+1. 1S0) 
,1: PRINT #1,"J R H - 1 9 8 6": NEX 
T I 

2050 FOR 1=0 TO 6000: NEXT I: BEEP 
2060 GOTO 1740 



TEST DE LISTADO 



10 


-254 


3 1 0 


-171 


610 


-130 


r 1 VJ 


— 1 MT 


1210 


- 58 


1510 


- 58 


1 R 1 CA 


_'?'->Q 


20 


-206 


320 


-164 


620 


-193 


7 X— VJ 


¿. L 7 


1220 


- 58 


1520 


- 58 


1 8^0 




30 


- 58 




JO 


630 


- 5 


7 _'Jí> 




1230 - 58 
1240 - 58 


1530 


-160 


1 R-^í/t 
1 D_'J£' 


— 7 


40 


- 58 


•-' — »-' 


- 58 


to40 


- 96 


7*+l£' 


O / 


1540 -236 


1 R4<?1 


— í/1 

tV 


50 


- 58 


■-'j)í' 


- 58 


650 


-118 


7JK' 


n i 

*+ 1 


1 ZQS 


"7 

- 7 


1 jj!¡i 


_ ero 


1 Oi_M£' 


£. •_• _J 


60 


- 58 


3/tGI 
■_• o y.' 




660 


-181 


Volíi 


— 1 faV 


1260 


- 58 


1560 


- 58 


1 O O v;> 


na 

— 7 7 


70 


- 58 


•_• / y.' 




670 


- 5 


v / VJ 


— 1 / 


1270 


- 58 


1570 


- 58 


1870 


-225 


80 


- 58 


~^&0 


- 5R 


680 


- 40 






1280 


- 58 


1580 


- 58 


1880 




90 


- 58 


y.90 

- ' v - 
400 


-18^. 


690 - 58 






1 290 


- 58 


1 590 


- 58 


1890 


- 44 


100 


- 58 


-103 


700 - 58 


1000 


- 58 


1300 


- 58 


1600 


- 58 


1900 


-201 


110 


- 58 


410 

420 


-163 


710 


- 58 


1010 


- 58 


1310 


- 58 


1 6 1 0 


- 85 


1 9 1 0 


- 20 


120 


-176 


- 58 


720 


- 58 


1020 


- 58 


1320 


-251 


1620 


- 63 


1920 


- 99 


130 


-205 


430 


- 58 


730 


- 58 


1030 


- 58 


1330 


- 58 


1 630 


-216 


1930 


-211 


140 




440 


- 58 


740 


- 58 


1040 


- 58 


1340 


- 58 


1640 


-253 


1940 


- 58 


1 50 


-165 


450 


- 58 


750 


- 11 


1050 


- 58 


1350 


- 58 


1650 


- 58 


1 950 


- 58 


160 


-139 


460 


- 58 


760 


-249 


1060 


-244 


1360 


- 58 


1660 


-190 


1960 


- 58 


170 


-103 


470 


- 58 


770 


—219 


1070 


-204 


1370 


- 58 


1670 


-135 


1970 


- 58 


180 


- 25 


480 


-118 


780 


-217 


1080 


-181 


1380 


- 58 


1680 


- 75 




~ 58 


190 


- 58 


490 


-171 


790 


- 85 


1090 


-209 


1390 


-185 


1 690 


-251 




- 58 


200 


- 58 


500 


-220 


800 


-155 


1 1 00 


-142 


1400 


- 8 


1700 


- 58 


2000 


-100 


210 


- 90 


510 
520 


-183 


810 


-216 


1110 


- 30 


1410 


-116 


1710 


- 58 


2010 


- 17 


220 


— 97 


-103 


820 


- 24 


1120 


- 58 


1420 


-112 


1720 


- 58 


2020 


- 46 


230 


-136 


530 


-163 


830 


-163 


1 130 


- 58 


1430 


- 29 


1 730 


- 58 


2030 


-157 


240 


- 58 


540 


- 58 


840 


- 58 


1 140 


- 58 


1440 


-243 


1740 


- 58 


2040 


- 80 


250 


- 58 


550 


- 58 


850 


- 58 


1 150 


- 58 


1450 


-213 


1750 


- 58 


2050 


- 71 


260 


- 58 


560 


- 58 


860 


- 58 


1 160 


- 58 


1460 


-142 


1760 


- 99 


2060 


-105 


270 


- 58 


570 


- 58 


870 


- 58 


1 170 


- 58 


1470 


- 58 


1770 


-134 






280 


- 58 


580 


- 58 


880 


- 58 


1 180 


-245 


1480 


- 58 


1780 


- 21 


TOTAL : 


290 


- 58 


590 


- 58 


890 


- 58 


1 190 


- 58 


1 490 


- 58 


1790 








300 


-118 


600 


- 75 


900 


-243 


1200 


— 58 


1 500 


— 58 


1 800 


-212 


202 
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BACKGAMMON 




POR CLAUDIA TELLO HELBLING 



E. Software/Serman 
Formato: tarjeta Softcard 




Illllllllllllllllll 



Uno de los más populares y anti- 
guos Juegos de tablero ha sido lle- 
vado al formato de tarjeta con no- 
table precisión, ya que responde exacta- 
mente a todas las reglas. 

Una vez cargada la tarjeta aparece ins- 
tantáneamente en pantalla el tablero de 
backgammon. La primera opción es la de 
ver una demostración del Juego y la segun- 
da es Jugar contra el ordenador una parti- 
da. Como las reglas son muy conocidas me 
limitaré a describir los aspectos más inte- 
resantes de esta versión de Softcard. A la 
derecha del tablero aparecen dos etique- 
tas de identificación de los Jugadores: la 
roja es para ti y la azul para la máquina. 
En la primera puedes poner tu nombre, 
con sólo teclearlo y dándole al RETURN. 
Posteriormente puedes marcar el número 
de partidas a jugar, las cuales aparecen 
parpadeando a la derecha de la pantalla, 
variando su número entre 1 y 64. Para de- 
terminar su número puedes utilizar los 
cursores o el joystick y para fijarlo debes 
emplear la barra espadadora o el botón de 
disparo. Acto seguido empieza la partida, 
lanzando el ordenador dos dados, uno rojo 
y otro azul para determinar el orden de sa- 
lida de los jugadores. Si saliese un doble se 
tiran de nuevo, moviendo las fichas aquel 
jugador que haya ganado. 



El diseño de esta versión de backgam- 
mon está muy cuidada y respeta todas las 
reglas del tradicional juego, que se originó 
hace miles de años en la región compren- 
dida entre el Eufrates y el Tigris. A lo largo 
de los siglos sus reglas se han ido modifi- 
cando hasta alcanzar el grado de perfec- 
ción actual. 




Grafismo: muy bueno 
Conclusiones: excelente versión que diver- 
tirá a los amantes del Juego en si, incluso a 
aquellos que aún siguen prefiriendo los table- 




FORMULA 1 



Mastertronic/Drosoft 
Formato: cassette 32 K 
Mandos: joystick o teclado 
Teclee: LOAD "CAS:". R 




Fórmula 1 de Mastertronic es un si- 
mulador automovilístico que per- 
mite al jugador correr en los circui- 
tos de fórmula 1. Para conseguirlo antes 
tiene que dar una vuelta de clasificación al 
circuito. El Jugador tiene que elegir si 
quiere pista mojada o secay en cuál circui- 
to, entre los diez más famosos del mundo, 
va a correr. Estos diez circuitos son los de 
Monza, Silverstone, Brands Harch, Móna- 
co, Hockenhelm, Osterreichring, Kylami, 
Solder, Paul Ricard y Zandvoor. Otra op- 
ción es la de emplear cambios automáti- 
cos o manuales. El peligro con estos últi- 
mos es que llegues a fundir el motor, aun- 
que una luz roja te indica en la parte supe- 
rior de la pantalla cuando te has pasado de 
revoluciones. 

El juego en sí no es muy difícil pero sí re- 
quiere una gran precisión ya que apenas 
te sales de la calzada, el ordenador te des- 
califica y tienes que iniciar nuevamente la 
salida. De modo que tienes que calcular 
muy bien los frenados para entrar en la 
curva sin salirte e ir a la velocidad adecua- 
da en las rectas para que los que vienen 
más rápido no te atropellen. 



Grafismo: elemental 
Sonido: correcto 

Conclusiones: puede atraer a aquellos que 
se apasionan por la velocidad. Una ventaja es 
su precio. 

Precio aproximado: 750 pts. 



CHOCK'NPOP 



Electric Software/Serma 
Formato: tarjeta Softcard 



hock'n Pop es un pajarito muy ro- 
mántico que protagoniza este di- 
vertido juego. Tu misión es ayudar a 
Chock'n a recuperar sus corazones que 
han sido atrapados y encerrados en unas 
mazmorras. Nuestro pajarito en el afán de 
recuperarlos se ha adentrado en el labe- 
rinto en cuyos pasillos encuentra huevos 
que en un principio parecen inofensivos 
pero que si te descuidas se convierten e 
monstruos. Es aquí cuando empieza el 
verdadero peligro, pues Chock tiene un pe- 
queño defecto y es que tiene las patas muy 
cortas y no puede huir con rapidez con lo 
que las posibilidades de ser alcanzado son 
muchas. Para defenderse dispone de bom- 
bas que debe disparar unos segundos an- 
tes para darse tiempo a buscar refugio y 
porque las bombas son de efecto retarda- 
do. Al liberar el primer corazón, que se en- 
cuentra en la parte inferior derecha de la 
consigue abrir la puerta de la 




primera habitación al romper el hielo que 
la obstaculiza. Una vez que consiga liberar 
a todos los corazones puede escapar o bien 
destruir antes a todos los monstruos para 
obtener así más puntuación. 

El Juego consta de cuatro mazmorras 
que equivalen a otros tantos niveles de di- 
ficultad, cada uno de los cuales tienen nue- 
vos y más peligrosos obstáculos. 

El pajarito Chock'n dispone de un tiem- 
po límite al final del cual muere. Otra ma- 
nera de acabar a los rivales es que Chock'n 
toque una señal de energía, que va apare- 
ciendo a medida que transcurre el Juego. 
Esto le permite acabar con los monstruos 
con sólo rozarlos. Aparte de estas señales 
de energía tiene los frutos que si los come 
puede ganar puntos extras. En todo mo- 
mento puedes saber la puntución conse- 
guida ya que ésta aparece en la parte supe- 
rior de la pantalla. 



Graflsmo: muy bueno 
Sonido: monótono 

Conclusiones: apto para todas las edades.ya 
que es una mezcla entre comecocos y juego de 
laberinto. 

Precio aproximado: 5.560 pts. 

: 



MUTANT MONTY 



Aitic/Discovery 
Formato: cassettes 
Mandos: teclado o joystlck 
Teclee: BLOAD "MONTY", R 




Monty es un hombrecito muy am- 
bicioso que no hace más que pen- 
sar en el dinero y en llegar a ser 

famoso. 

Para conseguir estos propósitos, nues- 
tro amigo tiene una gran oportunidad, 
pero ¡atención!, pues para ello debe pasar 
por cuarenta salas o habitaciones y reco- 
ger el oro que encuentre en dichas habita- 
ciones. Monty será mucho más rico mien- 
tras más oro recoja, pero además para que 
logre la fama debe rescatar a una bella 
dama que ha sido secuestrada por los te- 
mibles servicios de seguridad de los cuar- 
tos. Estos temibles vigilantes nos lo ponen 
muy mal puesto que harán lo imposible 
por dificultar el trabajo de Monty. 

Por si todo esto fuera poco para el sufri- 
do Monty, otra nueva dificultad se le cru- 
zará por el camino en el intento de resca- 
tar a la doncella y se las tendrá que ver ne- 
gras para lograr atravesar el interior de 
un acelerador de neutrones y misteriosos 
parajes en donde le esperan varias y se- 
rlas sorpresas. 

Aparte de poder dirigir a Monty en 4 di- 
recciones, has de saber que puede moverse 
a dos velocidades ( rápida o lenta). 

Si uno de los vigilantes de las habitacio- 
nes te coge habrás perdido una oportuni- 
dad para hacer fortuna y ser un héroe 
para las chicas. De cualquier manera el 
Juego tiene otras oportunidades en las que 
tal vez puedas rehacerte y demostrar que 
de verdad eres un héroe. 





Graflsmo: bueno 
Sonido: reiterativo 

Conclusiones: muy entretenido. Vale la 
pena jugarlo. 

Precio aproximado: 2.100 pts. 



SPECIAL 
0PERATI0NS 



Lothlorien/Mind Games 
Formato: cassette 64 K 



Este es un juego de estrategia que 
consiste en realizar una secretísi- 
ma misión y en la que necesitarás 
mucha astucia. Si estás dispuesto a salvar 
a tu país pon mucha atención: 

A manos del gobierno ha llegado cierta 
información de que se está construyendo 
en las afueras de la ciudad, en una zona 
muy protegida, un potente y moderno sis- 
tema de armas bacteriológicas que permi- 
tirán el empleo de virus capaces de causar 
enfermedades terribles. Como puedes ver 
es muy importante que tomes parte de 
esta misión junto con otras cuatro perso- 
nas con las que formarás un equipo. La 



elección de estos cuatro miembros la pue- 
des hacer tú mismo optando entre los 
treinta voluntarios e inclusive, para estar 
más seguro, puedes tener una pequeña en- 
trevista con ocho de ellos. 

Una vez formado el equipo tienes que co- 
nocer el objetivo de la misión. Este es en- 
trar en el recinto donde se encuentran las 
armas para descubrir hasta qué punto lle- 
gan sus progresos y si es necesario des- 
truirlo todo. Por supuesto no tienes todo el 
tiempo del mundo, ya que el reloj corre en 
contra. 

Los escenarios del Juego son principal- 
mente tres: bosque, al cual llegarás en 
paracaídas; recinto, del cual tendrás una 
foto de la entrada al laberinto, que se en- 
cuentra estrechamente vigilada: laberin- 
to de pasajes y cuartos. 

El juego utiliza una pantalla partida y 
mapas de diferentes posiciones, en las 
cuales aparece tu localización, aunque 
sólo puedes ver lo que verías desde tierra, 
con excepción de la aerofoto del recinto. 
Una de las claves para salir con éxito de 
esta operación comando es saber elegir 
muy bien al equipo y emplear en cada mo- 
mento las habilidades de cada uno de sus 
miembros. 



Graf ismo: correcto 
Sonido: elemental 

Conclusiones: un interesante juego interac- 
tivo que pone a prueba la capacidad de estra- 
tegia de los jugadores. Dispone de un correcto 
folleto de instrucciones en castellano, aunque 
los mensajes sean en: 

5 pts. 




oMADFOX 

Instrucción de carga: 
CLOAD "MADFOX 



INICIACION AL LENGUAJE MAQUINA 





Generalmente, en CM, para gestionar 
una tarea incluida en un bloque (conjun- 
to de bytes correlativos de característi- 
cas comunes), se utilizan dos elemen- 
tos: 

a) Un registro, o par de registros si la 
longitud excede de 256 bytes, que lo 
empleamos de puntero conteniendo la 
dirección de memoria del byte dentro de 
bloque en que estamos trabajando. 

b) Un registro o par de registros que lo 
empleamos de contador, para indicar 
que hemos llegado al final del bloque, si 
es que éste tiene una longitud constante 

El Z80 utiliza una serie de instruccio- 
nes que simplifican la programación al 
realizar parte de la gestión de estos dos 
elementos. Por ejemplo, tenemos un 
bloque de 500 bytes y queremos cono- 
cer la posición que ocupa un byte que 
contiene &HAA dentro del bloque. Para 
localizarlo construimos un bucle de tal 
manera que explore cada byte y realice 
una comparación hasta encontrarlo. 
Partimos de la dirección &H4000, y em- 
pleamos como contador el par BC, el re- 



gistro A para comparar y el par HL como 
puntero dentro del bloque. 

Para ello disponemos de la instruc- 
ción: «CPI (Comparar con incremen- 
to)», que de forma automática realiza la 
función de CP(HL), INC HL, DEC BC, 
que de no existir la CPI tendríamos que 
utilizar. Veamos como quedaría el pro- 
grama: 



mos es la: «CPD (Comparar con decre- 
mento)», que nos permite hacer una ex- 
ploración hacia atrás situando el punte- 
ro HL al final del bloque. Esta instrucción 
realiza las funciones de CP (HL), DEC 
HL y DEC BC. Los flags toman los valo- 
res al igual que CPI. 

Además de esta serie de instruccio- 
nes tenemos unas que por sí solas reali- 



LDHL.&H4000 --- 

LDBC,500dec 

LD A.&HAA 

CP (HL) 

JRZ, ENCONTRADO 
INC HL 
DEC BC 
LDA.B 
ORC 

)TF 

Por otra parte, la instrucción pone al 
flag P/V a cero cuando BC=0, sino toma 
el valor uno. Es decir, JP PE saltará úni- 
camente cuando BC sea distinto de 
cero, y JP PO cuando BC=0. 

Otra instrucción de la que dispone- 



LD HL.&H4000 
LD BC,500dec 
LD A.&HAA 

CPI 

JR Z, ENCONTRADO 
JP PE.OTRO 



zan un bucle, a las cuales llamamos 
«con repetición»: 

a) «CPIR (Comparar con incremento 
y repetición)»: realiza las funciones de 
«CPI» pero además se ejecuta repetida 
y automáticamente hasta que se 



3C 



una de dos condiciones: BC=0, y por 
tanto hemos llegado al final del bloque 
(P/V toma el valor cero); o bien A=(HL), 
hemos encontrado el byte que buscába- 
mos (Z toma valor uno). 

b) «CPDR (Comparar con decremen- 
to y repetición): realiza las funciones 
de CPIR pero decrementando, esto es, 
CP(HL): DEC HLDEC BC hasta que 
A=(HL) o BC=0. 



TRANSFERENCIA 

DE BLOQUES 

Existen una serie de instrucciones 
que facilitan el traslado de bloques de in- 
formación dentro de la RAM, para ello 
son necesarios tres elementos: 

a) Un par de registros como puntero 
de origen conteniendo la dirección del 
byte del bloque que se va a trasladar. 

destino con la^irección^el byte trasla- 
dado. 

c) Un registro o par de registros como 
contador de la longitud del bloque que 
se está trasladando. 

Tomemos como ejemplo un bloque 
de 500 bytes. Partimos de la dirección 
&H4000 y lo queremos trasladar a la 
&H5577; emplearemos el par HL como 
puntero del byte origen, DE como punte- 
ro de byte de destino y BC como conta- 
dor de la longitud. 

«LDI» es una instrucción que facilita 
el proceso, pues ella misma realiza las 
funciones de: copiar el byte de la direc- 
ción indicada por HL en la dirección indi- 
cada por DE, pero sin pasar por A, no al- 
terando su contenido; Decrementa BC, 
y si BC=0 el flag P/V toma el valor cero 
(si no lo pone a uno); Incrementa el par 
HL y al par DE. Quedando: 

LD HL.&H4000 

LD DE.&H5577 

LD BC,500dec 

LDI 

JP PE OTRO 

Para trasladar bloques enteros dispo- 
nemos de «LDIR» que realiza las mis- 
mas funciones que «LDI» pero con re- 
petición, es decir, hasta que BC=0, lle- 
vando a cabo todo su traslado. 

LD HL.&H4000 

LD DE.&H5577 

LD BC,500dec 

LDIR 

Los registros utilizados para las direc- 
ciones de origen, destino y contador son 
necesariamente los mencionados 
(HL.DE.BC), puesto que vienen defini- 
dos por las instrucciones. Por otra parte, 
la repetición se lleva a cabo paso a 
paso, por lo que podemos desplazar un 
bloque unos cuantos bytes de forma que 
quede solapado sobre el de origen. 

Al igual que las instrucciones anterio- 
res existen «LDD» y «LDDR» que de- 
crementan los punteros, con lo que el 
bloque se traslada empezando por el fi- 



J.C. González Santamaría 



Como habréis podido apreciar en los 
últimos artículos publicados en esta se- 
rie, ya no aparecen los listados con los 
códigos de nemónicos del Assembler 
del Z80. El motivo de ello es la reciente 
publicación de un especial de nuestra 
(vuestra) revista dedicado enteramente 
al código máquina, en el que podréis en- 
contrar el listado completo de los nemó- 
nicos en cuestión, tanto por orden de nú- 
mero de código, como por orden alfabé- 
tico (del nemónico). 

Este especial contiene además mu- 
chas otras informaciones que os serán 
de una inestimable utilidad para aden- 
traros en el apasionante mundo del có- 
digo-máquina (C M). 

A continuación un listado Assembler 



(realizado con Gen) que ilustra a la per- 
fección la utilización de las instrucciones 
(nemónicos) CALL, JR; LD.CP y mu- 
chas otras. Si lo analizáis, o mejor aún 
introducís en vuestro MSX además, po- 
dréis observar que es un programa muy 
útil. Para ello, podéis introducir los ne- 
mónicos y compilarlo, si disponéis de un 
programa ensamblador o introducir di- 
rectamente los códigos Hexadecimales 
en las direcciones indicadas, (de la 
EA60 a la EAA9), para lo cual deberéis 
utilizar un cargador para C M al estilo de 
los publicados en nuestros anteriores 
artículos. 

NOTA ...Las llamadas Cali del progra- 
ma se realizan a subrutina del BIOS. 



Generador de DATAS 



EA60 




10 


ORG 


60000 


EA60 


210B15 


20 


LD 


HL.P.150B 


EA63 


010040 


30 CURSOR: 


LD 


BC,Pt4000 


EA66 


78 


40 B1: 


LD 


A.B 


EA67 


B1 


50 


OR 


C 


EA68 


0B 


60 


DEC 


BC 


EA69 


20FB 


70 


JR 


NZ.B1 


EA6B 


AF 


80 


XOR 


A 


EA6C 


CDD800 


90 


CALL 


P.D8 


EA6F 


3C 


100 


INC 


A 


EA70 


C8 


110 


RET 


Z 


EA71 


CDC600 


120 


CALL 


PiC6 


EA74 


3E2A 


130 


LD 


A, 


EA76 


CDA200 


140 


CALL 


P.A2 


EA79 


E5 


150 


PUSH 


HL 


EA7A 


AF 


160 


XOR 


A 


EA7B 


CDD500 


170 


CALL 


P,D5 


EA7E 


E1 


180 


POP 


HL 


EA7F 


B7 


190 


OR 


A 


EA80 


28E1 


200 


JR 


Z.CURSOR 


EA82 


CB47 


210 


BIT 


0.A 


EA84 


2804 


220 


JR 


Z.CONT 


EA86 


CD8FEA 


230 


CALL 


MOVER 


EA89 


3D 


240 


DEC 


A 


EA8A 


CD8FEA 


250CONT: 


CALL 


MOVER 


EA8D 


18D4 


260 


JR 


CURSOR 


EA8F 


F5 


270 MOVER: 


PUSH 


AF 


EA90 


3E20 


280 


LD 


A,"" 


EA92 


CDA200 


290 


CALL 


PiA2 


EA95 


F1 


300 


POP 


AF 


EA96 


FE01 


310 


CP 


1 


EA98 


280E 


320 


JR 


Z.DECY 


EA9A 


FE03 


330 


CP 


3 


EA9C 


2808 


340 


JR 


Z.INCX 


EA9E 


FE05 


350 


CP 


5 


EAAO 


2802 


360 


JR 


Z.INCY 


EAA2 


25 


370 


DEC 


H 


EAA3 


C9 


380 


RET 




EAA4 


2C 


390 INCY: 


INCL 




EAA5 


C9 


400 


RET 




EAA6 


24 


410INCX: 


INC 


H 


EAA7 


C9 


420 


RET 




EAA8 


2D 


430DECY: 


DEC 


L 


EAA9 


C9 


440 


RET 





31 



JOYSTICK IDEALOGIC 

FUERTE Y BARATO 

entro de la gama de periféricos que 
la casa Idealogic ofrece a los usua- 
rios destacamos en esta ocasión su 
joystick. Presenta un di- 
seño ergonómico de gran 
versatilidad, con cuatro 
ventosas adherentes y 
veloz respuesta a los im- 
pulsos. Su construcción 
y la calidad de los mate- 
riales empleados permi- 
ten a Idealogic garanti- 
zarlo por tres meses y 
ofrecerlo a un precio 
muy atractivo, ya que 
sólo cuesta 900 pts. Idea- 
logic está en calle Valen- 
cia 85, 08029 Barcelona. 
Tel. (93) 283 86 93. 




AULA INFORMATICA 
PHILIPS 

Potente y versátil 

Philips atendiendo a las necesidades 
del mercado y dentro de su política 
de apoyo al estándar MSXya cuenta 
con un Aula de Red Local MSX. Esta aula 
cuenta con una estación master integrada 
por un ordenador PCPhilips, P3 1 00 o com- 
patible, provista de una impresora y un 



disco rígido. A partir de ella se pueden co- 
nectar hasta 63 terminales constituidas 
por otros tantos aparatos MSX. Las carac- 
terísticas de esta red al contar con un apa- 
rato PC o compatible que opera con el sis- 
tema MS-DOS le dan una gran capacidad 
de trabaj o, ya que en la práctica pueden ac- 
ceder al disco desde cualquier terminal. A 
cada alumno se le asigna un fichero de im- 
presión simultánea cuando inicia la co- 
municación y al final de la sesión todos los 
comandos de impresión son sacados auto- 
máticamente por impresora. 



LOGOLANDIA 

Taller para niños 



El Centro Logo de Barcelona (Ente- 
za, 218 D-6 - 08029 Barcelona - Tel. 
322 26 14) cuenta con un taller de 
formación informática para niños de 8 a 
14 años. Logolandia en sí es la maqueta de 
una ciudad que construyen los niños va- 
liéndose de medios informáticos como la 
tortuga logo, impresora y obviamente or- 




NUEVO SANTO 

MPC-800 



Una de las novedades presentadas 
en el pasado SONIMAG bajo el le- 
ma «El mundo MSX de Sanyo» fue 
su nuevo aparato MPC 200, cuya configu- 
ración pertenece a la primera generación. 
Es decir que cuenta con 32K de ROM y 80K 
de RAM, incluidos 16K de VRAM. Pero lo 
más atrayente de este nuevo aparato de 
Sanyo es su diseño, que rompe totalmente 
con la línea de las máquinas anteriores. 
Este es de color blanco, con la zona de te- 
clado de un marfil oscuro y el teclado pro- 
piamente dicho en distintos matices se- 
gún las funciones. Incluye también el te- 
clado en castellano con letra «Ñ». 
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KONAMI ENTRA FUERTE 



Anuncia nueVOS juegOS ar Cade alegría de miles de usuarios del estándar. 

En principio y para antes de fin de año se 

Konami, líder mundial en software anuncian Jail Break, Green Beret, Basket- 

de entretenimiento, ha designado ball, Nemesis, Iron Horse. Nightmare, Sao 

a la empresa española SERMA LinRoady The Goonies. También Konami, 

para que fabrique y distribuya en exclusi- a través de Serma anuncia para 1987, Sa- 

va todos sus productos en España. De este lamander, un juego ya famoso en Europay 

modo el catalogo de cartuchos para MSX que con toda seguridad será su próximo 

se vera sensiblemente incrementado para Mega Game. 



O, 1280, 1290, 1300, 1310, 1320, 13 
of" i r ¡' V. f 1 1" : GQ 

2.v™™^™"™^™™^"™ 
0 pHHMHpHBnBB "2": G' 



TÜT IfH.TAD 



dañadores combinándolos con elementos 
plásticos convencionales. El objetivo de 
Logolandia es despertar e incentivar en el 
niño su capacidad plástica y de reflexión 
sobre el entorno urbano, de modo que allí 
podrá construir semáforos, automóviles, 
etc. Al mismo tiempo se desarrollan los 
conocimientos pretecnológicos, electró- 
nicos, robóticos y de control de construc- 
ciones a través del ordenador. 




DE ALTA VELOCIDAD 

Sony SDC-600S 



Entre las novedades que presenta 
Sony para este otoño señalamos su 
grabadora SDC-600S diseñada es- 
pecialmente para ordenadores MSX. Sus 
principales características es que puede 
grabar en velocidad alta y normal, integra 
monitor de audio, selector de fase, nivel de 
grabación automático, control remoto, 
contador de cinta, etc. Puede además rebo- 
binar una cinta de 60 m, en aproximada- 
mente 110 segundos. Realmente es una 
maravilla. 




TUTOR DE BASIC 

Un manual en tn MSX 



c 



orno resultado de un acuerdo en- 
tre la firma Idealogic y Manhattan 
Transfer, SA. nuestros lectores po- 



drán disponer a través de MSX EXTRA y 
MSX CLUB del Tutor Basic, en formato de 
cartucho. Tutor Basic es un cartucho que 
una vez insertado en la ranura correspon- 
diente no ocupa memoria del usuario y le 
permite a éste hacer las consultas sobre 
cualquier comando Basic en elmomento 
en que lo necesite con sólo teclear el nom- 
bre de dicho comando. Sin duda un cartu- 
cho de gran utílidd para aquellos que quie- 
ran dominar el basic a tope. Su precio es de 
3.500 pts. 
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lili GRUNEBERG LINKWORD 
LANGIAGE SYSTEM 



pluy 




LINKWORD 




I.ONDON LINKWORD 




Software 
educativo 



edad: 8 a 99 
años 



GRAN EXITO DE PLUS 
DATA 

INGLES 1 ALA CABEZA 



Una notable respuesta por parte del 
público usuario está teniendo el 
curso de inglés en cassette y disco 
editado por Plus Data -Gran Vía 66 1 , Pral. 
08010 Barcelona - Tel. (93) 246 02 02-. 
Este curso responde a la tarea de especia- 
listas en idiomas que han logrado exponer 
de una manera fácil y sencilla las normas 
más idóneas para el aprendizaje del in- 
glés. El curso ha sido desarrollado por Mi- 
chael Gruneberg, doctor en Psicología, y 
David G. George, doctor en Lenguas Romá- 
nicas. El Gruneberg Linkword Language 
System permite un aprendizaje rápido y 
eficaz del idioma, a ello hay que agregarle 
el sistema informático Plus Data que inte- 
gra el curso de idiomas a las posibilidades 
interactivas del ordenador MSX. Su precio 
aproximado es de 6.900 pts. o 7.900 con 
diez lecciones 



PROGRAMA 

DEL AÑO 
GANA 

VOTANDO 



AL MEJOR 



on 1 «.114, o«o ? : mía i# 1 , " 16" 



Entre todos aquellos cuyos vo- 
tos hayan sido para los progra- 
mas que queden en los dos pri- 
meros puestos sortearemos 
cartuchos, cintas, joysticks, 
adaptadores de tarjetas, etc. El 
plazo finaliza el 30 de noviem- 
bre de 1986 y los resultados se 
darán a conocer en el número 
especial de Reyes. 



0 
O 

o 
o 
o 

T 

0 
T 
0 

TO 920 
0 



, "17" 
, " 18" 



"22": 



VOTO POR 

Publicado en el n.° 

de MSX EXTRA. 

Nombre y apellidos 

Calle 

n.° „ 

Ciudad 

Prov 

DP 

Tel 

Escribe en el sobre: 

VOTO MI PROGRAMA 
RocaiBatlle 10-12 
08023 Barcelona 



, "23* 
, "24' 



, "25* 



, "30" 



0 PRESET<174, 64) : PRINT#1, "31" 



TRUCOS DEL 




ROTACION VERTICAL 
DE SFRITES 



La rutina del listado 1 sirve para rotar 
un SPRITE alrededor de un eje vertical. 

Empezad tecleando el listado 2. Lue- 
go de hacer RUN, ya podréis probar la 
rutina con un pequeño gestor escrito en 
BASIC (listado 3). Este gestor define un 
SPRITE de 16x16, tomando como pa- 
trones los de los números de 0 al 3. Ello 
es así para que sea fácil comprobar el 
efecto del giro. 

Si queréis emplear la rutina en alguno 
de vuestros programas, deberéis indi- 
carle el número de SPRITE a invertir ha- 
ciendo: 

A=USR(N.° de SPRITE). 

La rutina se encarga de reconocer el 
tipo de SPRITE en curso, así que es in- 
diferente el tamaño o la ampliación que 
estéis empleando, puesto que ella mis- 
ma tomará las medidas oportunas para 
girar cada tipo. Una cosa más: la rutina 
invertirá el modelo que le indiquéis sin 
importar que en ese momento el SPRI- 
TE esté fuera de la pantalla. 

RESUMEN DEL 
FUNCIONAMIENTO 

La rutina ASSEMBLER del listado 1 
realiza lo siguiente: 

La línea 60 se encarga de convertir el 
número de SPRITE pasado desde el 
BASIC en formato BCD a formato ente- 
ro. 

Las líneas 70 y 80 toman el número 
de SPRITE y llaman a la rutina de la 
ROM encargada de averiguar la direc- 
ción donde se encuentra la definición. 

Las líneas 90-110 sirven para averi- 
guar el tipo de SPRITE en curso. 



LISIADO 1 


LISTADO Z 


10 


DRG 


40000 


1 O PnRYrAnnnn » Tn/i nrwR • . 

x yy r uaa — tUUUV ! 1 U4 UU i D ! . 


20CINT: 


EQU 


#2F8A 


RFADVfc 


30CALPAT EQU 


#84 




40VPEEK: 


EQU 


#4A 


= ñ + PFFK" (Y) 


50VPOKE : 


EQU 


#4D 


^O NFYT 


DO 


CALL 


CINT 




70 


LD 


A, (#F7F8) 


S'PRTNT"HAY TIN FRPnR" 


80 


CALL 


CALPAT 


50 DATA rn RA ^>F A TiP. 


90 


LD 


A, (#F3E0) 


F7 CD 84 00 3A FO F^ Ffi 


100 


AND 


2 


02 28 28 F5 FR ?1 10 O 


1 1 U 


T T~» 

JR 


Z, IVERS 


0.45 19 FR CD 4A 00 AF 


120 


PUSH 


HL 


FB CD 4. A 00 FR 70 rn AFi 


130 


EX 


DE, HL 


00 FR F1 m AF) OO 1 


140 


LD 


HL, 16 


3, 10, E9, El, 1E, 04, CD, 78, 


150 


LD 


B, L 


xx», «su, rñ| v^» , id, uo , ujj 


160 


ADD 


HL, DE 


.4A.00 06 08 1F CB 11 1 


i n i~\ s~~\ 

170B2 : 


EX 


DE, HL 


U,ri5, r y , Li), 4D, 00 , 23 , 20 , 


180 


CALL 


VPEEK 


FF PQ 


190 


LD 


C, A 


200 


EX 


DE, HL 


T TRT A TIO t 
1<I8XAJ0a 


210 


CALL 


VPEEK 




220 


PUSH 


AF 


1 0 SCRFFN 1 3 


230 


LD 


A, C 




240 


CALL 


VPOKE 


30 FnRY=0Tn7 


250 


EX 


DE, HL 


** u a»v w - a» >. i ; t^nK* v vrH 


260 


POP 


AF 




270 


CALL 


VPOKE 


50 líFYTY Y 

OV 11 L A 1 A , I 


280 


INC 


HL 


fin FnRY=oTn^ 


290 


INC 


DE 


7 0 AI^Afc+AfcíY - ) 


300 


DJ NZ 


B2 


80 NFXT 


o x u 


POP 


HL 




320 


LD 


E,4 


100 PUTSPRTTFO MRn 1PO 

J-W xU10xI\ilEU, VXOU, 1 <¿ U 


330B3: 


CALL 


IVERS 


/ 


340 


DEC 


E 


1 1 O 7<t — T VIT17VC1 • T C"7 t — ii tu 


350 


JR 


NZ , B3 


EN1 1 0 


o ¿; Pi 


RET 




120 DEFUSR7=40000! : A=US 


370 ; 






R7 ( NIÍMFRn } 


380; 






1 ^o rinTm 1 o 


390 ; 








400 IVERS: 


LD 


D, 8 


, ,, ,,,, ¿ 

FIGURA 


410B0: 


CALL 


VPEEK 






T T\ 

LD 


B, 8 




430B1: 


RRA 




" ■ 1 1 i uuuu i f usrry ♦ 


440 


RL 


r 


C: xxxxxxxx « . « 


450 


DJNZ 


Bl 


Situación original 


460 


LD 


A, C 


470 


CALL 


VPOKE 


A: 11 00001 x 


480 


INC 


HL 


C: 10000111 


490 

500 


JR 
RET 


NZ, B0 


Posición final en la que el registro C es 




una copia invertida de A. 



Las líneas 120-310 se usan sólo en 
SPRITES de 16x16 y su cometido es 
mover los cuatro bloques de la defini- 
ción, de forma que sea posible invertir el 
modelo llamando a la rutina IVERS cua- 
tro veces (líneas 330-360). 

La rutina IVERS (líneas 400-500) es 



la que realiza la parte dura del trabajo. 
Se trata de mover los bits del acumula- 
dor hacia la derecha de forma que vayan 
entrando en el registro C en sentido con- 
trario. El resultado es que este último re- 
gistro acaba siendo una copia invertida 
del acumulador (ver figura) 
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BIENVENIDOS A ggg^gjy^ 

UN SOFTWARE DE ALIA CALIDAD PARA MSX 






KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez más grande entre los usuarios del USX. 
PVP. 500 Ptas. 



Kl secreto de la 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



/1/iANSATlAN' 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAEE. Entretenido y muy divertido Juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 



< ,/n 



6 V 




|fc ■ ' CONQABAt.'TA 



EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puede8lPVP.700Pta8. 



STAR RUNNER. Conviértete en el audaz pilo- 
to mterestelar y lueba a muerte, a través del 
nlperespacio, contra las defensas del tirano 
Daurus. Dos pantallas y cinco niveles de difi- 
cultad PVP. 1.000 Ptas. 



PLOPPY. El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



1ÍAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión. Diez niveles 
de dificultad. PVP. 1.000 Ptas. 

Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo noy mismo: 

r, 



Nombre y apellidos: 

Dirección: 

Población: CP Prov. 

□ KRYPTON Ptas. 500- □ SNAEE Ptas. 600,- 

□ UBOOT Ptas. 700- □ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ QUINTELAS „. Ptas. 700- □ STAR RUNNER „ Ptas. 1.000- 



Tel.: 

□ FLOPPY PVP. 1.000 Ptas. 

□ MAD FOX PVP. 1.000 Ptas. 



L 



Gastos de envío certificado por cada cassette „ 

Remito talón bancarío de Ptas alaortendeMannattanTTansfer.SA 



Ptas. 70 - 



las. | 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: 

Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 
Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITAMELAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



1 1 



MÁS 

ÍXCI7MW! 




iSSSSSF 



AL mClO M ' 





SERMfi 



TOOOS LOS 



pWDUCTOSEDTTApOSPW 



TELEFS. 256 2» 



TITULO 



SISTEMA: 



NOMBRE Y APELLIDOS: 
POBLACION: 



DIRECCION:. 



PROVINCIA: 



CODIGO POSTAL: 



FORMA DE PAGO: ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 



